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COLOR 15,0:SCREEN 
DEFINT A-C.E-N 

N=500:M=5:NM=(N-1 )¥M+1 :DIM M( 
X=2/LOG(10) :Y=L0G(5)*X:Z=L0G( 
FOR 1=1 TO NM:M(0,I)=M*I/Y+1 . 
=M*I/Z+1 .5:NEXT 

60 H = N¥9 + 1 :U = 10 A 9:DIM S(1»H+1)»T 
»D(1 ) :T(0,0)=4*4*5:D(0)=5 A 2:T( 
:D(1)=239 A 2 
FOR 1=1 TO NM 
FOR J=0 TO 1 

FOR K=M(J,I-1 )+1 TO M(J,I) 
FOR A=0 TO H:S(J»A)=T(J.A) :N 
D=D( J) :GOSUB 1000 
FOR A=0 TO H:T(J.A)=S(J,A) :N 
D=2*K-1 :GOSUB 1000 
IF (K+J)M0D2 THEN F=1 ELSE F 
GOSUB 2000 
NEXT KrNEXT J 

C=0:G=0:LOCATE 0,0:PRINT "x 
P ( ));"." ; 

180 G=G+1 :A=0:A$=RIGHT$(STR$(P(G 
A=A+1 :C=C+1 :PRINT MID$(A$,A, 
IF C MOD 5 =0 THEN PRINT " 
IF C MOD 25 =0 THEN PRINT:PR 



1 »NM) 
239)*X 
5:M(1 ,1) 

(1 »H) »P( 
1 ,0)=4.*2 
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EXT 
EXT 
= -1 

=";STR$( 
)+U) ,9) 

1); 

INT SPC( 



IF C=N THEN END 

IF C=M*I THEN NEXT I 

IF A=9 THEN 180 ELSE 190 

'••• WARIZAN SUB 

FOR A=0 TO H 

Q=INT(SU.A)/D) 

R=S(J>A)-Q*D 

S(J»A)=Q 

S(J iA+1 )=S( J.A+1 )+R*U 

NEXT:RETURN 

'••• KAGEN SUB 

FOR A=H TO STEP -1 

P(A)=P(A)+(S(J,A)+E)*F:E=0 

IF P(A)>=U OR P(A)<0 THEN E=1:P(A)= 



P(A)-U*F 
2040 NEXT 
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r\ RUNTSt, LB"b< 
Lr^E>JM I KKE>tf ^75 

Oo toZffl^n^AgWi 

ew/ ourcj-tzyMW 
>€ffUfcoriu^/ctf s ^ 

^A£D-KLr, CALL 
M I KKEtwH^Lr^So f 

UX?50^A^(25B?Sr)L 

}SL/cL^?5iJ^A^-r§t$ 
B?#9-<JH<A-Kibrffi 

x§„ M?KKEtA^-rn« 



- Pr*s*nted by Romi 



- Pr*s*nted by 
SEARCHING PAT A 



OtCWD^i^n- KLTCALL MIKKE 




O *. *. -3 1 r usr j ( v •> >(i «-of utnt tz &<n 



- MIKKE - Pre 
INPUT SEARCHING 
USR 

18 40 

2i_INE<S> FOUND ! 
0.k 



O t ' " . r USRj£i->i3t¥5l)i7)*5iTi7)iT# 

MAKKEdrM/IUKKEtfr 

=feu-o<-§torfSLr<n5© 

It, S-ISfUo 3d, rtRAM 
xAA^1il£©BAS i ctfm 




■T5fc«)7r~ib*7-CUfc^d:o 



AV7*-% 






^AtfSOSTo € 
bJ;3o ES©7iC 
TSflCD^n^IIOS 



©5*f*— 



*ECLIPSE OF THE MOON 






OI^lU-FS-AIW. tjntl 



OJb¥-DXI4 tvC'i/vt 



OM'4;M- iU ■ 



09*0- LvS X*-;** 

*[Utl/[i]tt/ 





«MtH • V 
tzilTZil-'i.v 






^IM^'Ntf 



2M 






t&54(W737WW- 



FLOWER T^'J-tf^T^h 




l\ 

h 
s 

A 



^T^ZL 1 ^ — 



Ot* Ml 'V7 7 

FLOWER -hA 1 ^ 3 EOT^' 



9 
O 



u »' iii »*> mi!» * 0t^^mm i m m*im 
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iwjummn 



V 



o\ 



c^ 



WtmrlBgHift 



ah&ma 



MSX tm 







**^s? 



,o 



^iii— 



V, 



300* 

CDS L 



>7P 



r fr,. 



\\i/_ 



=5«T 






B o X # A: V 7 h T\ /i fc*»A.TO 5 fc'lfCtt*^<7> 
*># ■btf)T^TU:*g*tU:v>/C<7)-<-i;<7> 

I/bas i ct-l-oXi. < fe*«/*S£(f 

<7)* 'J •>7^U4 : -A£fE -3tW^7 7 t 









■rcsio/ 



►c. 









JTf&l 



III 



T 






(«)«^Sl$J*icWa#/\VD>W^5ms73?2 t o B oT5mm1ir 4 " 2 " 38 




Wl\tcZ.tftfc?tcti\ Uht. 
©£tt£, UB'5<1"5iSfc 

;tStfsM±^6i!or<5 

IS/ £3:;l£iA'/) x &35, fcS 
x.&A,frAP^ L^S&UW / 



fc*55A\ &fc^ct9$S3iSflF6§ 

tctc, u-ts^&oizmmmiz 

jyfo^tz(DZ\ 6©^n = rg 



1?T^P^^A3— f 



^ ft 'J &$§»*••'« a.T#£1 

tz-z>tzA,tz'tt^ *> J: -? £ l/ilB 

ftVC # 4" < ft o /i<7)T, 2 £ U 

f*p D p fc of-: S 2 ft p°p & Sffl I fco 

4'i:L^2*L /rfflttf # ft 






Ht 



UFOfc/u5*><D< 



mm®& 



SlUffld; 5 CSSfSiWl < A/© 

tttc, ufo*iWi/j:<5. 

fr£?-;*^-:**-£}f*5o UF 
Otf±#L/fcfc*53o 
Z©-5*-A©gW«, 3.^-7.4=- 




-rUFO£±£Strt:9l/&tf&, 

Mte©s»c^^<K*ur, «K 

±60BS5tf. UFO#Bffi©± 
frbtB5tI^-C«5©r;igo 



1 C0L0R11 . 0.0:SCREEN3.0: SPRITES (0 )="p"JP" 
: FORS=0TO59: DRAW" BM0 . 1 92C6R96C3R64C6L=S ; 
R96":E=RND(1 )*8 :S0UND8 . 15 :FORY=0TO185 : Y= 
Y+1+3*STRIG(0) :X=X+E:PUTSPRITE0. (X.Y) :S0 
UND0. Y: IFX<1ORX>250THENE=-E:NEXTELSENEXT 
:IFP0INT(X+2.Y+3)=3THENNEXTELSEBEEP:SCRE 
EN0:PRINT"SC"S 






nam* 

10HH:ZUKEIN 





SCORE a 


Hl-S 20088 


M COHBITIOH £ 


ZUKEIN 


KEEP 


:' 


".iM35S*M 


# 


MM 


LEVEL 2 


TIKES 2 


IftjjSHl 


■■■ 



#3&ii"m*£04«) 

©»^p d po ilMWL-tfb 
5-f K7)«*ftfl-'< 
fe l'<?***ftA^o/ib 




HIGH SLOW 



WSJII • P5j§IM£« 



Sofctf, |S)gE</u©^SSI3eroH 
I GHBLOW/c. 

^-A«BLJ»S*^.C N g^B 
o*0HS<!:5fc«)©*«tUr. 
5V X^b-rW/K'J n-A£'>U± 
tfT«Z5. 

RUNrsfrcgwesczr, 

■efflgtfBHCSSSSnfcK^O. 

su*rfiu#£Sc"5©£tt£, » 

fflB^*<L^ftL\f55o 
*!*6» Bi;0>©55H:*8St£g1g 




i>. ^-vji/*-©a€)fro fin 



1 DEFUSR=34-2:DEFFNQ=( INT (RND( -TIME )*51)) 
:A=FNQ:PRINTA:FORI=0TO1 : B=FNQ :P=46+B: PLA 
Y"V15L32N=P;":FORJ=0TO1 :S=STICK(0) :IFS< > 
3ANDSO7THENJ = 0:NEXTELSEPRINTMID$C<>".1 
-CS=7) . 1 )B: :IFA=>BANDS=70RA=<BANDS=3THEN 
C=C+1 :U=USR(0) :I=0:A=B:NEXTIELSEPRINT:PR 
INT"SCORE ="C 
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7j>y9L> INFORMATION 



^A:s/i»Jb^I^^t^Aa)ffiL^7u 



r 7.s<~yv Jbxi'V^+rAjB, Z> 
7>^AC!S«snfcNliHW±© 

us/j^jfsrrsfcto©*.©^ 

■X^iz-fJl/xi'^-tf-A©^-? 

i/f Jl/xi "J ^-y-AjCD^P ?37A 
£, 22.©&lU5Cf753A/rR 

UNur»<fc-5o 

fiS^ > SfiSfflx'-? 

cn^snfcx-S'ffl, hs^ffls 

fflx-S'/jWiU&bOKfco 

fcbiloritfcto, -E-©hCISfT 
SC^-^S-Sfflr, ilfiSfflx- 

fc£U fr9nO©M8fflx-5>B 
(SSCcfcorR&fifflr, £©??£ 
BBfSftrossrsriiBUd:^. 

— b-^brSSTS 

7;**-1z-3W>975B, WT 
©ttoCtSdttOo 

SAVE^yOI/S". A 
•x-:7ffli§£ 



SAVE"CAS: 7 3"TJU€" 

(CSAVErBUB&U) 

■fS«^D^5A^fJSZi;iS© 

ami 

'■^'^-Wl^iy^ljAjB, IE 

srojjs^A/cnsT'p^Airfg 
£S8^3fc»©fc©£<, 

^D^^Acp©^Br*5X^-X 
£«!8Ufc9, REM££ilSCfJ 
oW5i. ^©ffffiSIBfSx-? 

is, i3«Sfi^rus5©r;i«„ 

$fc. ;7P^A£J75ZM8fi 
i-Bzyua/urRUNU/cb. 

■TAi'-pJl/xi •v^ttAWHISr 
©ffiU75 

©SI*. JgfBUfcU^P^ASP 
-KUr<5 fc*:U P-Klyfc 
StRUNBUfcl^t,, 
RUNUfcSiBx-S'/Tm^ 

re,, tuRUNL-rusotb, 
=Eon5£p-su&m!:Bi.u\„ 

©oSIC^^i/fJUxi'^^-y-Aj 

ERGEL/cta„ 
MERGE©-*>975«, X-TX2 

tx-^js&ur. 

MERGE'^WJUS" 

£JgfiTnB"OK£„ 

©SbfrDto. 

SCREENS : WIDTH40 



Z?j>y9L 



77V?Ai:Siinfc?n« 
AIJ, 

SCREEN0 : Wl DTH4D 
£»7Ufc£?r©SSr. 'J7.h£ 
SSL/fcd*©BB»(t^:U 1 B 
HB40?x24ai:Ur, SWGk 
BsS&U)C£oTmT©43''f 

•Rpaspi i mm$-<y 

'JT.Ktf'1 fflS(P4i7)WP3©f£oo 

•RPOT NBaS"!"? 

1 HH£Sg;t£5BBiyi*l©fESS 

•rpot imm-p^y 

5S®£S8;t-£l0ffiB«F'3©ft6o 

•fpot 

S5g±, t8«TSaufe©B^RT 

isifflRC5S'<v?wieu. x-r:*^ 
$tiix-^r©s«cisSo 

S^fc»l»©#iie«l5lMt"Sc:<i:o 
©ttpfi • KS • *tS0¥*) • BIS* 

©yay^k®'MU75. 5"fKJU€ 
©ISftnruSSStfflSKd:. 7P 



<7x AffigiSHI 3 i: ©P 1/ LV 

Aria. •7->>i§©&»icft~r-£ 

ISISit. 9— ^lUT'tt^roPl-U 

@7n^5A©a^.isa(RPGa 

©^P^AtMKCf^CUfc* 
t^^^BGM, i/l-'jTTfflKU 

LMKW(El«^#%lcUfc6.aiKtt 

»t v -u&mamm u r us, 

1 tt©x-f 7.<7SfclSx-^Ca 

«©7p^^A«Anr©)Sffiia^ 
Sfc&u#. ftZGiztna^klz 

mfflsnfcffsaro^scB. sis 
©w?Ltts«B. acfcWfDpro/r'J 

y-r-JI/ROMA-K'J'yy^itSo 

st. B^M^iicjBTcans* 
mmym r 7n??kzi v>o=j a > 

50j CfflKSnfctl^t.. S>£©$§« 

was^u±tfru«. 

abPMfflfESroSBPiCd^rS 

MStfiSBbtirusror, g» 



9000 ' SPECIAL CHECK SUM 

901 B V=PEEK(&HF676)+PEEK(&HF677)*256 

9020 V1=PEEK(V)+PEEK!V+1 ) «256: L=V1 -V-1 

9030 VS=PEEK(V+2)+PE£K(V+3)*256 

9040 IF V1=0 THEN EKO ELSE S!=0 

9050 FOR 1=4 TO L : D=PEEK ( V+I ) 

9060 S!=S!+D*(I-3) :NEXT:A$="" 

9070 FOR 1 = TO 3:B = 60M3-I) :A=INT(S!/B) 

9080 IF A>35 THEN C=A+61 ELSE IF A>9 THE 

N C=A+55 ELSE C=A+48 

9090 A$ = CHR$(C)+A$:S!=S!-A*»B:NEXT 

9100 PRINTUSING" ####>& &" ; VS ; A$: : V=V1 

9110 GOTO9020 

9000>AH50 9010>8L60 9020 >7QD0 9030 >C970 
9040>pD40 9050>6560 9060>Rq50 9070>ATE0 
9080>RrP0 9090>rV80 9100>7q60 9110>???? 




zm'nbZ&Z. 
@GOTO900G 
fp-oZ'T.^ -WUxi'y O+thi 

^St)1Sct^o 

©a® c bosos \zmmm^-^ 
tf*sanriK©r. mmzntz 
mmm s r-'p t & ■? z us^m^r . 

#s^torfe3-5o 
su^p^'^A^siK-rstSB. 

Bi;»©B5©7*-^#B®©±fr 

bU^ajL-r. ,=Wx.rus53ttf 

©{flsrax-^tf-aorufcgB^© 



-v5Ur«JJ£U. x-^tftfotD 
S5Sr@*6©ffiSIS< Ofrxfo 

©^a^Atf^c&ofcto. 

DELETE9000-91 1 
^S'<7Ur, r X' , <i'f^xi'7^tt 
Aj©^P^^Afdl7€lX9^<o 
©S©fc». SB^*?x.t^P^5 
A^tJ-7Ur33<o 
iS, t,UU<£RUNUra>J::?o 

-Jf^ClMfUiSfrofcb. 15- 

raisrMP=°ur&<J;5o 



R-Domm 



1991*1 ^^frb3^^Cffl«a 
nfcRPgBP1©ffS©cpfrb, 7-f 

Of, S®S375P3«aUSl7S-r. 



■seisiFPajPiSsim 

1990*10H^^bl991*3^^C 

n«an/cFPgBPi©^sa©tpfrb. 

»i)^575R^aUStfS-r 



-jyySI lxpyr—V 



ot^P^5ASfcBE*«3oS 

rsx.r<fcan 

7V'!j'-scSx.r<nfcA©a 
/*j^b, »arios©7jcM7 7'> 
«»xb7j^aL/StfS^<, 



C35SJ£W#£B9, ©#Bffl77 
V?ArSfel5frot7P^7A 
SAcB!3»€«3^Sr(!:. ©ffi 

yj- Kj^srig^r < tau„ 
L«)teOOB, 107131 BS rrTo 



0^-y/\0a^d;D 



iCD^-v'rB, KTFfflSP-T 

-ca-rsfeffi05»»L/rL^Tc 

© r l ff^P^'^Ajo »ffl#CBM 



@ r MP a "?ljo is®rgs.riauu7 
'Wmmm.o »k^p^5a©«s 



^r5t(i3S6 



=rl05 *aiB,=SESf^4-lQ-7 
TIM MSX- FANsmas 
*RCB»P-7— S^ET-So 



»ai5»f^HB-eiJg»rss-e 

^ Sfc(«ffi^S©)S«BS,faWE 
<y5-X7<7i:iIl/i?', 
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p® 



L - 




MSXSy-A«©2<f:<aoru**5o MSX£M 



u / 



IC^<^^->T3** J > 



MSX©lfiil« r turboRj 

tzZtz<Dti.l\A&. €^frta« 

XA\ XtvO*S^ICSxScfe5 
CSSo 

Msx©ss^Anr^<*5o 

OlcffiornSArfe, S;lg£ 
AtlfcAcfl^©«!)SSil®< 6LM3 

fflffffiJEBMSXOffiiCcfc 

■S&liliCfcSo 
li@ffl±ffll55lc^:C J fb2 

5^c!S^*A>nrnr. *© 

T©B5C r Okji;»^nrL\ 



tur, -&©-r<Tii 



jtf 



S*-VJl/tL\e> : SBufc"o A* 

t^5cs^*n5©/co 
z(D^tz^tdwt±mmnm 



urn5Di-©fe©i\ zn6 
tfs^nrn-stsis. ms 
xtf+~©ffiT5£f§^ri^* 

■+-*- sennas 

fi^tu^rt. msxcc 

<n&i\, msxcsi^^x. 

SIC 13, *-*-K«oIM 
SX©g8t(BAS I O^A* 
LWni37cWd:/u/co 

+-tK-K^BAS I Cfc^ 
rU5d: r £— fe5to7^&l^ 
•£> j d: fr r ^ 7c & $ j 73 h Z S 5 

U&UtMSXttS^C&or 
*-tK-S©®1\7iI3, MS 

xic«ur<sv=a7-jncp 

u<»urss©r\ 3:<i^ 

r£<£lM\£35 *S, if 

^73CPUL^V-IL7 7 J^T ; &, 

^-TK-Kfrb^^A^Ur 

fcifcfu rfc6»c+-^ff 
-r©ri373< v jjsd^fciva: 
^HAjr-A^LriKro/co 




Q-nft ! 5'#*>'pA,<7>»flWiIiafc ^n>y hm r Okj£»— y/U7) r B J ft < frA*$A , fr ? 



C o »:■ y r i s h t 

2 5 2?? B y tes f r e 

15 i s k E A S I C w e r s 



Ofc'i'C*— 5-}f LTt). CAPS*— £/rfc+— GT>:|*JglfcVT-4 -^iTOt?^) 1 ^?*-^ 




O r PRINT 2 +5 i&gfiltztZ*>, *>i?Kt 

£3«)53:5lc&-or<-g>o 
■MSX©S» r BASICj 

UOIJ, ^nTclJ-TtMSX 

fc»uc, ivisx^a^A* 

»ur r =j©*-*ffi*H: r 7j 
£gx.tfUir<5o 



r 7 j££JFLT>»;<7>*£m>(:'.f£ 

3n^MSX©^^7ct, 
PR I NT 2 + 5 

'T5d:itSfflSSrS5 r 7 J 
tfJSHlz^^isn7c^55o 

S^£©A£&jgiM3, £© 
r PR I NTj£U5gl5#fc^fc* 
ti\ Uoli^tttfBAS I ct 
U5=fc©r, MSXI335U5 
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/v;ai>B7r27^*TlK 



fcftlCB, BAS I CCDtr££ 

•5CIS, frfcDCDBfUflff&gl:: 
&3/c35o 

UfrU BAS I Ctftofrb 
£U#E>£UoT, MSX£1 
Kt+riKffllJffi/co 

@#©£Q6&lMw^Ctb£o 
fct>, S^^-zl7 7 ;UT-&©pp 

fcb> *nS*-3#ttC£A«!f 

i^5TT, BAS I CfflM^ 

■tti\ W©wtB r ^/uC6 
ISj©cfe5SmSrcd:,lixKn 
l\, L^s SorSUUo 

stsc, miifcij-r'Sis^-r 
Msx/c^r£&i;r\ st 

^©il^Swn^ 1 ": j(=ip 

A = E + 5: PR I NT A 
^<^©d;5C-rst3tffc* 
Scfcotlitf^D^tf, 3 5 



5©AM§U\, 

/cfrB, SJ;-3tR®©DP^ 

gt£&i;tn^l£5£$l;J, 

5d:UU. 
ftg^£ttl:r3>«A,m-5£, 

S\ B-5frCA$n©/c 

<?rs5cr> msx©wi£ 

10 PRINT 2+5 

^©^©frC^f^nSo 
^ttTjtg^fcAtUSfc 

5, MSXBg^-r^/clJT'^ 
^©HfrlSU&LVu*:,, 

n/c©r, #^ci/rsiA\, 




^P^3AO*IS3^^J 




OJPSyP^'^A^T'b^tt #IJ, i>f;n«rlBTLT*''bn«. 




Q44<<— v<7> I ff'/n:/-7A r UF0',i:A.'3<=< 'J < jirUhZ^VA-iiZti-ttz 




0-« r $jliSHIFT*-?T« i L'j:* ! 'b, r * 



a SC.REFM3 . : SPRITE*<0>= 



"0 J <73fei:4- , J(7)*-T-}T%;C x>#— Tfctt' 




. >j:A% r 2 ji»+-T-rr*> - t; 



. ; SPR I TE* < > = " r-'M 



O r P. 



S-OFRlT?!*-, SHIFT>«iL>Wb r 




O r yj(**KC*— S-ONCLT, CAPS*— ^OFFWKStWi-fc^ 



:OLORll, 0, : SCREENS, : SPRITE*<0> 



QCAPS*-£0N. fr&*-£OFFI::LT r P &¥S*>Z fe-5 



JLOR11 .0,0 SCREENS.. i 



: jWb<M«) r < jT-li'i-i.>* > 'biEBLiT 



: FORV=0TO1S5 : V = 
+ :;:*->• i k I S •' d "> ; X=X+§ PUTSPRITE0, CX.S 
ONB0 . V : I FX<10RX>258THENE= -E : NEXTELSENE: !T 

; iFPOirmx- 
EN0:PRIN1 



OS* 



fcb. *ZT->)9->*—iW 




Q^-tblf/^&ScS^fcfT'i-Ct, ti—VMZ-lZ<r>?T<n^*>tt 


AAHIMHWa 




ffigj 


ttj» 






Rfi 









l^. 



QRUNt5i*>f>A,tft<„ .tliL 



QRUNLfcJbfcfc'JaMJJSoTV.'* 
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toWr7&7nbten*>Z*>> 



MSX#S$C&3£1>5© 
B, MS X£U5KV !]>£(£ 
l\Z.Ui£T(DZ£1Zl3\ OIZ 

m^ztj.uu<zt>. msx^ 
n?zi\&tcttz\ i^^zm 

W%, W5&fa\zWF%)z>Zi: 

T:7P^5A£fE3©&&fr& 
ft-kW3.Zt.t£.<DTl, zzau 

■7? yvbteii -ic jgKitifc 

7n^ASJJ*53fc5 

5^6, ages/urns^ 
ra*d;-5 

&/ufrtjjs::/vr^d;5o 

^AOJXSttneOCisgtotl 
rnSX?^ MSX©BBC 

?tMsx®ii@cs^*n«. 



■fflK'J^S^fJSZCi:*© 

iZM)\zm^zft<ti\ mm 
miwmrrimsstzttii, * 

-7K-Sfrt>£T53fc££ia, 
jf«U7.S©JTSCl^lS, £ 

t"B@£;l*Lrfrbft£-5o 
fi;0g££f3£, fc*Cd:< 

L I ST 

=&u i&W3y°ny=?bff& 
s*nrn/ct>, ^p-^tf-T 1 ' 

5 zi>z, 

NEW 

inis. Msxro&frcgii 
isftz^2>yn'9 ; ?b&? / <z 

Ufc^P^A^ffifyUrfrb 

ig^r^u^p^'^A^r-, n 





=X®&lV|f 






run uc&s 






I^-GDtii£i7^A:£> 



WSOMKBBm 



nda^JHtUXh©}!*^ 
&£*\ ^©Sxic, 
SCREEN0:WIDTH40 
^UnLcfc^o 35f*U& B 

mm u t. sroinrox^gfctf £& 
U40X?ic&§©r\ fjsz*- 

©m^TiPffrb, i£?fo 
iiisurfjs^/ur-u;:^ 

tUTSfHitx-fcb, Z(DM 

z©t$, pp>rixtabn 

E&tfbJTSClC^lUV, 

BSffll^B'/ufilfflC^-VJU 

PST©^ffl. l\-5UhjZlz®S) 
t&o ZtlZ, l\£3iZ}T£Z 
^r^^fcfft*-VJU©L^5t7 
tiK-D-ol\tzZiz\zteZ>o 
if.kiihM\-}ZiT£ZhZ-^ 



l- 2 
It 3 

' IJ 



<£, fl»'J7.h©-&ffl^©*S 
t>0lZl\<te&1£o 

fi«U7.K©ft©*ft)0B, 
/^©itS^W^IuC^-So 
S©*?^0C^fc6Z3r''J 

^->+-£}¥Ur§§iO<£5o 

35 [yZ±zco'n^n^mx 
aibttr<n58ittm 

7n^A£Fr53^*tfc>9. 

£3;:y's/urRUNUr&fc 

6X >vtz— Vtt^mtmtzo 
l3hZZii\3&<fo^>Z. z 

Tpp^^ffior-€-©fi^ss* 

£#£>»D8W:5o 

frhjtzhjte5.Xtz^tzb=>'y 

^©msris, 3©^ta^f 
< ^LM^-rossiS^-fs© 
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MSXCDX^JftgUXhOS? 



T<7>20tf>StfrH.TliU\, 
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u«s?ftt7 , ay7Affl« ■;* 
* + =>?* u-Kfift/l/Civb 
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^it-^fctWC, 7 , Q77A4i 

7>t1fit; «t i t- 4- 5 1 , rfr ft 'J m 
MS XtlT*>-t;- £<7>-C£ 5 

VtOitoK&X-ZZUftzo 
tit m£, r AjO+1' : 7^^3 

-Kli&H4 i ttiio 

&H 4 1 r>Xt&h,tih 1 ? 
tSo/:Att, r PRINT &H 
4 1 jfcHfrlt<*«fc9o 65t* 
mZtitzt-lhio cfifctMSXT 
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Wi*ktttfZ i r J r = 7 9*'%M.'7°W 
=7J*tem.lXti^tzO)X\ iT>5 
-A/TISftlTfc^'Jo -ft*- 
SJIfi-t nii'O #*(- SCREENS 
S-ftfrt ZZXB CEx 5 J: i C 
ft So 

7A^fi|oT1.7lftL^^fca7l 



10 AD=PEEK(&HF925)*256 

20 FOR 1=0 TO 2:READ B,A$ 

30 FOR J=0 TO 7:VP0KE AD+B*8+ J . VAL ( "&H' 

MID$(A$> J*2+1 .2) ) :NEXT J.I 

40 DATA 144.FC84B484F484FC00 

50 DATA 160.FCCCB4B484B4B400 

60 DATA 254.AA54AA54AA54AA00 
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ES3ES32/2+RAM8K BY Otan-Soft 



\1K1** 



"fSQ JSUTd 1*35^— yi3S i:f 



1 SCREEN1 .1 .0:COLOR15.1 :WIDTH32 : DEFINTA- 
Z : KEYOFF :READC$.D$: FORI =0TO36:VPOKE 14336 
4I,VAL("&H"+MID$(C$+D$.I*2+1 .2) ) :NEXT:W= 
60:Z=1 :P=2:R=1 :V=15 : E$ = CHR$(27) :60SUB6:P 
RINTE$"Y!$"STRING$(25.165) : DATACCFC7933 

2 PUTSPRITE0. (120.80+W) . 9 . 4 : PUTSPRITE1 . ( 
118-(P>2)*0>80+Y) >3>P+(P>1 )+(P=2) :G=6+1 : 
LOCATE6¥20+3,1 : PRINT"*" : IFG=500THEN7 

3 S=STICK(0) :IFS=5THENIFR>0ANDH>0ANDW<Y- 
3ANDW>Y-12THENH=-(H>120RP=1 ) *4 : Y=0 : W=-8 : 
Z = 1:R = 0:A=P«2+.40:PLAY"S10M1000L64N = A;":P 
=-P*(P<>2) :K=K+1-(P>2)»(P-2)*3:G0SUB6ELS 
EA=-4#(Y<45) :Y=Y+A:W=W+A:Z=Z-A¥2ELSEB=Y: 
Y=0:A=Z:Z=1 :IFH=0THENH=A:W=W-B 

4 W=W + H:H = H-(HO0)*2:H = H + H«3*(W<Y-52) :A = 
(S=3)*(H<>0) :P=P+A+(P+A=5)*4:R=R+A:IFW>Y 
+60THENR=1 :H=0:W=Y+60:P=2:V=V+(V>1 ) 

5 G0T02: DATAFF3379FC00007D837BFD78007C38 
3892D6FED69292D6FEFED692387C70F8F8F870 

6 PRINTE$"Y#+"USING"SCORE###0";K:RETURN 

7 PRINTE$"YX)"USING"= BONUS###0 =";V*5:F 
0RI=1T0V#5:K=K+1 :G0SUB6 : PLAY'C" : FORJ=0TO 
9:PRINTE$"Y#3"CHR$(48+J):NEXTJ.I:G0SUB6: 
FORI=0TO1 :I=-STRIG(0) :NEXT:RUN 
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,#vert 



tS £**06i 
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E53EE32/2+RAM8K BY HIDEYUKI 



Z\D=;J>L> 



Cclcsseum 



~&Qi&Zff5t&3d'<-yiZ&r)£? 




1 SCREEN1 , 1 , RND(-TIME) :C0L0R1 .14.0: WIDTH 
14:KEYOFF:DEFINTA-Z:FORI=1T038:VPOKE775- 
<I>7)*7421-(I>9)*6130 + I,ASC(MID$("7-CS>'- 3 > 
9vvjssjDoOTfpq#5fOGM>UXe8;N *=<0".I,1) )+ 

1 :NEXT:FORI=0TO1 : PRINT : PRINT"PLAYER"I+1 

2 PRINT :PUTSPRITEI+1 . (1*20+1 10.136) .1*8+ 
4,I*2:INPUT"(HP,AP»AC.SP)" ; H . A.C .S :CLS : I 
FH<1ORA<1ORC<1ORS<1ORH+A+C+S>100THENI=I- 
1 :NEXTELSEH(I)=H#30:A(I)=A:C(I)=C:S(I)=S 
:NEXT:P=-(S(0) >S) : J=P: FORI=0TO41 5 : VPOKEI 
+ 6144,97- (K160)*8:NEXT:D = 691 9 

3 S0UND7.53:S0UND12.9:Q=P:P=1-P:IFS(Q)-S 
(P)+97<RND(1)*194THENH(Q)=H(Q)-(A(P)-C(Q 
)+97)#(RND(1)/10+1) :VP0KED+Q*4.15:S0UND6 
,16:S0UND8.16:S0UND13.15ELSEVP0KED+Q#3-2 
,Q#18+94:SOUND2.80:SOUND9.16:SOUND13>9 

4 FORI=0TO16: J=SQR(1 )-J :PUTSPRITEa. (Q*4 + 
114.P*2+136) , P*4+4, J+P*3:NEXT:VP0KED+Q*4 
,Q«8+4:VPOKED-2.110:VPOKED+1 .136 

5 SOUND8.0:SOUND9.0:IFH(Q) >0THEN3ELSEVPO 
KED+Q*4.1 : LOCATE, 2: PRINT" PLAYER" P+1" WON! 
!":FORI=0TO1 : VPOKE8204, J«RND( 1 )*16+176: I 
FRNOdX .2THENS0UND9.16:S0UND13,15 

6 J=1-J:I=-STRIG(0) : NEXT :SOUND9,0: RUN 
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GS3E512/2+RAM8K BY ttZk 




-^sQmuyj [&&<—&£.& o ^t 



1 SCREEN2»3:COLOR15,0.1 :FORI=0TO1 :CLS:CI 
RCLEC7.7) ,7, ... .8+ I*.4: PAINT (7. 7) :FORJ=R 
ND(I-3)T031 :VPOKE14400+I*32+J.VPEEK(J-(J 
M0D16>7)*248-( J¥1 6)*8) ANDN0T2 A INT (RND( 1 ) 
#8) :NEXTJ.I:BEEP:SPRITE$(0)="P*P »)(fe9":S 
PRITESd )="p*p PPP % ":SPRITE$(4)="£?£ 

2 SCREEN1 :WIDTH32:DEFINTA-Z:KEY0FF:E$=CH 
R$(27)+"Y" :PRINTE$" !4feVti"E$"#3i9feL)ti''H:F0 
RW=0TO23:LOCATE0.W:PRINTSTRING$(W+4.160) 
; :NEXT:S0UND1 > W: T=0 : V=VDP (8) -1 :X=220:Z=8 

3 IFTMOD100 = 0-THENCOLOR. . VAL (MID$ C 47591 8 
".T/100MOD6+1 .1)) :VP0KE8212.14 

4 I=STICK(0) :T=T+1 : PRINTES" ! 7"T: IFWM0D2= 
0THENJ=(I¥3=1ANDW<44)+(I>6ORI=1 )*(W>4) 

5 W=W-J:PUTSPRITE0, (W*4+32. W»4-13) .15.1- 
WM0D2:IFT=H+1THENPRINTE$"X3£5< Z5U*l 

6 PUTSPRITE1 , (X+30.Y-20).6.YMOD2+2:N=N-1 
:PUTSPRITE4. ( ( Z-ABS (N+3) +6) *4 > Z*4) ,11 :S0 
UND0.255:SOUND8.P:P=P+(P>0) : I=X<220 : X=M- 
X*I:Y=-N-Y*I:IFX<YTHENP=15:M=RND(1 )*3+2: 
N=RND(1 )*5+3: Z=Z+ ( ( Z >W) - ( Z<W) )*2 

7 0NVDP(8)-VG0T03:PLAY"V15L8BGFEL4C03G04 
C":H = H+(H-T)*(H<T):PRINTE$"X3tr*0t- *5tt*": 
FORI=0TO1 :I=PLAY(0)-STRIG(0) :NEXT:G0T02 
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ES3ES32/2+RAM8K BY HIDEYUKI 




"mmuTjmT^-yt&vs? 



1 DEFINTA-Z:C0L0R15.1 . 14 : SCREEN2 .3 . : A=1 
4335:FORI=0TO7:CLS:CIRCLE(8>8) .I:PAINT(8 
,8) :FORJ=0TO1 :FORK=0TO1 : FORL = 0TO7: A = A+1 : 
VP0KEA,VPEEK(J*8+K*256+L) :NEXTL . K. J . I :SC 
REEN1 :WIDTH32:KEY0FF:E$=CHR$(27)+"Y" 

2 FORI=0TO1 :READX(I) »Y(I) .P(I) : NEXT: READ 
A,B.C.D.G»H:PLAY'*TOL8SM4500C4CED4DFGEFDC 
": TIME = 0: DATA. 78. ,224.78. .112. . .10. . 

3 P=1-P:Z=P(P) :M=X(P) :N=Y(P) :0=4:R=7:IFS 
TRIG(P)THENP(P)=Z-(Z<7):0=7ELSEIFZTHENP( 
P)=0:V=ABS(A-M) :W=ABS(B-N):IFV<30ANDW<30 
THENPLAY"N24":C=SGN(A-M)*Z*(V/30+1) :D=SG 
N(B-N)*Z*(W/30+1) :0=15-2*P:R=5 

4 S=STICK(P) :X(P)=M-(Z=0)*((S=3)*(M<216) 
-(S=7)*(M>6))*16:Y(P)=N+(Z=0)*((S=1)*(N> 
0)-(S=5)*(N<158) )*16:F=A+C:IFF<0ORF>224T 
HENPLAY"G":C=-C:H=H-(F<0) :G=G-(F>0) :R=6 

5 T=TIME¥60:IFB+D<0ORB+D>159THEND=-D:R=6 

6 PRINTE$" , !)1P"G;E$"!32P"H;E$"+.''60-T:A= 
A+C:B = B + D:PUTSPRITEP. (X(P) . Y (P) ) . + 2*P .7 
-P(P):PUTSPRITE2.(A.B) , 1 ,R: IFT<60THEN3 

7 PLAY"GEFDECC:VPOKE6912.208:PRINTE$"+. 
"MID$("2P WON! 1DRAWN- ■ -IP WON ! ! " > SGN (G-H 
)*8+9,8) :P0KE-869.1 : RESTORE :CLS :G0T02 
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ES32/2+VRAM64K BY TOPPY SOFT. 



KG-SP 



-*SQi&W5i*ZT<-yc&r)3:? 



1 C0L0R15.1 .1 :DEFINTA-Z:SCREEN5:0PEN"GRP 
:"AS#1 :SETPAGE0.1 : CLS :FORI=0TO1 :READM$(I 
)tX(I)iY(I)iM(I) :NEXT:LINE( 70.70)- (105.1 
05).15.B:LINE(160.70)-(195.105) ,9.B:SETP 
AGE1 .0:LINE(75.50)-(180.165) .2.B:DATAV15 
O6L64C.85.60.4.V15O6L64B.170.155,8 

2 FORA=0TO1 :0N-STRIG(A+1 ) -STRIG ( A+3) *2+1 
GOT05.3.4.5 

3 PLAYM$(A) :IFJ(A)=1THENLINE(X(A) ,Y(A))- 
(Q(A) .R(A)) , 10+(A=1)*3.BF: J ( A) =0 :G0T05EL 
SEJ(A)=1 :Q(A)=X(A) : R( A) =Y( A) : G0T05 

4 PLAYM$(A) :IFi(A)=1THENCIRCLE(Q(A) .R(A) 
),SQR( (X(A)-Q(A))*(X(A)-Q(A))+(Y(A)-R(A) 
)*(Y(A)-R(A))) . 10+(A=1)*3: J (A) =0ELSE J ( A) 
= 1 :Q(A)=X(A) :R(A)=Y(A) 

5 S=STICK(A+1) :IFS=0THENS=M(A) 

6 X(A)=X(A)-(S>1ANDS<5)+(S>5ANDS<9) :Y(A) 
=Y(A)+(S>0ANDS<3ORS=8)-(S>3ANDS<7) : IFPOI 
NT(X(A) .Y(A)X>1THEN8 

7 PSET(XCA) ,Y(A)) .15+(A=1 ) #6 : COPY ( X ( A) -1 
7,Y(A)-17)-(X(A)+16.Y(A)+16).0TO(71-(A=1 
)#90.71 ) .1 :M(A)=S:NEXT:GOT02 

8 SETPAGE0.0:PRESET(70.80) :PRINT#1 ,"PLAY 
ER";1-(A=0) ;"t) »% !": POKE -869,1 :RUN 
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[TOPPY SOFT.] B-U/ TOPPY SOFT.?-T/ 3V7SA 

Ij-SJtfA,, t35?C©7P^7ABUK6<S^.CKG(<fc"6auy- 
A)n>xXS£U5S/u<!:5i::<£t>&o;:<!:£3Ar^fc££ca5 

<rSffltftfofc=fe©(eaiH. ta^es-tz-^ttsmi BBcuutt©^ 
^5-5tg50rsfli#urnr<etsUo 




TOPPY SOFT STAFF 



@Ufr</ | |B£^5ffB£^> £?| 
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@^fo5 / \l\<0?| 



&l:mi#S£©£Ki73[q]£ttA 



B&^fr^T&tmffl 



>^-A7T-A-¥iJ 



aE 



|BI1^^^^ | 

P Y^^UTjIqUS^^X-r >^U 



ZO'T-Afflcfca CBTjIql'v 
^B"rs^-A0^^, ^Blt 

g©SB^c«s iiiia?«&< 

FOR I =1 TOB : READ 
T(l), U(l) : NEXT: D 
ATA0.-1, 1,-1, 1, 

0, 1, 1,0, 1,-1, 1,- 

1, 0,-1,-1 

©^Kj§tS©gB#£, 
X (A) =X (A) +T (S) 
: Y (A) =Y (A) +U(S) 
£sTtt»\ Xtf-Kfett^OT. 
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Ki:g*ta, a. ss, «. *<7>*5-hnhnav^5-u>, 717-1 ><-*i->, x-r u;ut«-wfc„ •*<£.<»*— vizi-jo 





EE3E532/2+ RAM64K BY Romi 


MIKKE 


-&Q mm \&m*—v\z& o %? 






18 CLEAR200.&HCFFF:DEFINTA-Z:AD=&HD000:D 

EFUSR=AD 

20 READA$:ON-(A$="!")GOTO40:SM=0:FORI=0T 

031 :DT=VALr&H"+MID$(A$. 1*2+1 .2)) :P0KEAD 

+ I.DT:SI1=SM + DT:NEXT:AD = AD+32:READA$:IFSM 

=VAL("&H"+A$)THEN20 

30 BEEP:PRINT"DATA ERROR i n" ; PEEK (&HF6A4 

)#256+PEEK(&HF6A3) :END 

40 A=USR(0) :PRINT"MIKKE»* 7E37L-75/9. " : END 

50 DATA 3AF8FAB72809CD52D036003E800610F5 

210040C5CD0C00C12F4F5FF1F5C5CD14.0E2B 

60 DATA 00C1F1F5C5CD0C00C1B92805F13C10DF 

76F1CD52D02336202640CD24002168D0.0E87 

70 DATA 110040010040EDB03AC1FC2640CD2400 

FBC9F547E603070707074F78E60C814F.0C0B 

80 DATA 060021C9FC09F1C94142000010400000 

00000 000 00000 00E506062189FD11 53. 077E 

90 DATA 411ABE2006132310F81803E137C9E121 

5941CDEA40CDF44021000022BE412177.0BE7 

100 DATA 41CDEA40CDB100237EB7282511C1417 

E122313B720F92A76F64E2346235E2356.0C4B 



110 DATA 2378B12031DD21BE41DD7E00DDB6012 
008218E41CDEA40186CCDF4402ABE41CD.0E13 
120 DATA FE403EFF32C041CD3241AF32C041219 
D41CDEA40184FC5D5DD218452CD590121 .0EE3 
130 DATA 5EF511C141E51AB728177EB728101AF 
E3F2803BE2004132318ECE12318E4F118.0C6F 
140 DATA 1FF1DD21BE41DD6E00DD660123DD750 
0DD7401 E1 E5CDFE40CD3241 3E09CDA200 . 0F2A 
150 DATA D1E1C35140DD219B403AC1FCF5FDE1C 
31 C007EFE24C8CDA2002318F63E0ACDA2.il 47 
160 DATA 003E0DC3A20011B84106053E3013121 
0FCFD21B9413E05F5874F0600DD21AD41 -0A7C 
170 DATA DD09DD4E00DD4601B7ED423805FD340 
018F609FD23F1 3D20DEC921 B941 06047E . 0D58 
180 DATA FE30200E3AC041B720053E20CDA2002 
31 0ED047ECDA200231 0F9C94D494B4B45 . 0BB7 
190 DATA 000A0D2D204D494B4B45202D2050726 
573656E74656420627920526F6D692449.090B 
200 DATA 4E50555420534541524348494E47204 
441 5441 0A0D244E4F5420464F554E44A5.08A2 
210 DATA A5A50A0D244C494E4528532920464F5 
54E4420210A0D2401000A006400E80310.06D3 
220 DATA 2700000000000000000000000000000 
000000000000000000000000000000000 . 0027 
230 DATA ! 
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AD -pV-l>7.fiOy5> 

DT V^Vfi?-^ 

i ib-ym 

SM 5 1 x vCV Alt^ffl 



VU75Um 



20 ^isymwzzfr 

30 7-^XCS^tfSofci 
©fflH 

40 usniBisufythucM i 
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EE3ES32/2+RAM8K BY £~<§>-OTN 



K5-T7 



DRIVES^ 



-^QmuysitzB^-vc^o^t 



10 DEFSN6A-D:DEFINTE-Z:DIMA(20) ,8(20) : CO 
LOR1 , 0>0:SCREEN2.2:FORI=0TO20:A(I)=COS(3 
.14*1/20) :B( I) =SIN(3. 14*1/20) :PSET( 8.8): 
LINE-STEP(2*B(I)+5*A(I) . 2*A( I ) ~5*B ( I ) ) .0 
:LINE-STEP(-9*A(I).9*B(I) ) : LINE-STEP ( -5* 
B(I).-5*A(I)) : LINE-STEP (9*A( I) . -9*B(I)) 
20 LINE-STEP (5*B( I) . 5*A(I) ) : PAINT ( 8 . 8 ) : F 
ORJ=0TO3:FORK=0TO7:VPOKE 14336+ 1*32+ J*8+K 
,VPEEK(256*(JMOD2)+K-(J>1)*8) :NEXTK.J:CL 
S:NEXT:COLOR1 . 1 5 . 4 : SCREEN 1 : WIDTH32 : VPOKE 
8196.42:VPOKE8208.238: KEYOFF : A$=CHR$(27) 
30 FORI=0TO7:READV:VPOKE256+I>V:NEXT:L=8 
■R=10:Z=12:C=120:D=140:P=0:E=0:F=8:T=0:F 
ORI=0TO23:LOCATE0.0:PRINTA$"L":LOCATEZ.0 
: PRINT"*44-0>4*" : NEXT : SOUND3 . 2 : SOUND4 , : 
SOUND5,20:SOUND7,49:SOUND9.13:SOUND10>16 



mmvnm 



A(nK B(n) m<Z)[S]Sl= 

A$ 17^-^y-^VT. 

m: CHR$(P.7)tfA-5 

c, d mcDmm 

e mcDTjftmft 

si 

g moimmmm 

H /W7.=I7> 

i , j, k iv-ym 

l mm 

P H07t!-K 

R m©[q]* 

S 7^f">y^A7Jffl 

T 7=i7 7 

v T'— ^Wb-zatt 

r.ti-> ^ fc^ 



■mcDxmm 



IWzflM 



10-20 $]Jf S^/77^"!' h 
40 B|g9^/7xi"^A7J 

50 $Slgg/3i©7?iq]3iS 
60 7=7i§Jn/iiB7^n- 

70 t. =17 • A-i'T.aT'feK/ 

U 7W /^©^-p ^77 A7 

-y?— 7 ('t?3QzmfrZfo) 



3©:7n^Att, ilffl77 




[35--S • OTN1W&&© 

liasfflsc^ortisrL- 
J:5„ -E-nistfe*^. =© 

7- A, $ttt&loOC[:ro3 
5£L-»5£&5©rlTSZ 



40 L=L+(T=200ORT=500ORT=1200) :S=STICK(0) 
:R=R+(S=7)*(R<20)-(S=3)*(R>0):P=P"(P<9): 
C=C+P*A(R) :D=D-P*B(R)+8:D=D-(20>D)*(20-D 
) :PUTSPRITE0. (CD) . 8 . R : Z = Z + E : F = F- 1 :IFVPE 
EK(6144+(C+8)¥8+((D+8)¥8)*32)=32THENS0UN 
D12.80:SOUND13.0:P=0:C=C-20*A(R) :D=D+16 
50 SOUND8.P+6:SOUND2.D:SOUND6,ABS(10-R)* 
3:IFF=0THENE=INT(RND(1)*3)-1 :F=RND(1 )*8 + 
2-G=Z+E*F:IFG<1ORG>31-LTHENF=0:GOTO50 
60 T=T+1 : LOCATE0 . : PRINTA$"L" : LOCATEZ . : 
PRINTSTRINGSU.131 ) : IFD< 1 92THEN40ELSEBEE 

P 

70 LOCATE5.1 :PRINT"SCORE"T:H=H-(H<T)*(T- 

H):PRINT" HI SC0RE"H:P0KE-869.1 :REST 

ORE : GOTO30 : DATA . 60 . 1 26 . 1 26 . 1 26 . 24 . 24 . 60 



□— Mzx^-yzs-tryT. 

£ffifflbrL\§ 

HI* ft 1= IS, GH R$(£ 
7)+"L"£PR I NTXrte 
•5i7^-»-7>7'^ ^ 

f 6Uri^©/c<, 
-d£Ds H@©nSB^±r' 

^n^Sxii tbztz<mxo 
□— ji/T-5 z. t. i=&3©?355 
*fc, uroT.^-rsA-S'- 

>lix-7£8fc-3\ SIN, 
C0S£f£or¥ffl[s]gA7- 

>stt^ur^8L/ru5o 

^ftCd^r, 5Esl^7n7^ 
-yiSCHRSOE), oSD 

7^-7i=S8urn5c 

^©fctf), X7P-Jb*ti:fc 
l=fc£x, 7e-KSiS<-T5 



©s^gtung^fiucrs 

rS3r5fcU-x7--y7/Co 

■turboRtSicot^r 
38"5-yic:»Ufccfc5G:, * 

tttturboRffittSScDg 

S©fl]6&ue>5l=7K7fflgl= 

tztz, mmizdotz-Dzyn? 

^A©S£tf3BEIXrt£L\5 

7n7^AiS5BE£S;irb 

goWto 5&©d;-5l=:7a7' 

=5hM-z>toz.hii£h\ znzt, 

ir/c3B@¥<*6n£3o r* 
S&&iJ9fc< li&frofcffl/c 

t\ stSd^-fA-X/K-rv 

t+rfeb-ofco 

*fo, &i2i©d:5l=, 7^- 
7ffl+ V ^ O 9 ft"£ a Z-tj. < » 



iD^P^^/xliBfflx-"^ 
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= 5a>oLx1 



2B>3Ka3 
6B>WaP0 



30>EoE3 
70>fSA1 



40>oua9 
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t°> 



iSj^^^A LIT, iT5IO(OUTSOT**-b2 5^BK>5:?A i r Fj 



lfl#C»BKLfc r THE ERATHj <7)U^K7>- Sliira/ll;<^7C?A < *>-3^<""!:-fiHlb'l+ 
(;Sx?.frt ) Lnt-y•^A^ zniJ r Ej XT. *LIR*';*-ttA,TL/;. 



turbo RflR»b*?l/-f MSliS r DRI VESR» turbo R 



^©;/a^'=;ABfr»to^turboR©H)§ ; E-K'eiSA,r"< 
fdSU tY X^5aur**ffllSSAntlB, Disk 
BASIC version 2. 01£*S*fl. ga^-HCfcO^f- 

10 DEFSNGA-D:DEFINTE-Z:DIMA(20) . B(20) .T( 

20) :C0L0R1 . . : SCREEN2 . 2 : DEFUSR=342 

20 FORI=0TO20:READT(I) : A( I ) =COS (3 . 14*1/2 

0) :B(I)=SIN(3.14*I/20) :PSET(8.8) : LINE -ST 

EP(2*B(I)+5*A(I) .2*A(I)-5*B(I) ) .0:LINE-S 

TEP(-9*A(I) .9*BCI) ) : LINE-STEP (-5*B( I) .-5 

*A(I) ) :LINE-STEP(9*A(I) . -9*B(I) ) 

30 LINE-STEP(5*B(I) . 5*A ( I ) ) : PAINT ( 8 . 8 ) : F 

ORJ=0TO3:FORK=0TO7:VPOKE14336+I*32+J*8+K 

. VPEEK(256*(JM0D2)+K-(J>1 )*8) : NEXT: NEXT: 

CLS: NEXT: COLOR 1 . 1 5 . 4 : SCREEN 1 :WIDTH32:VP0 

KE81 96.42 : VPOKE8208 . 238 : KEYOFF : L ( ) =1 5 

40 A$=CHR$(27) :L(1 ) =8 : L ( 2 ) =1 2 : L ( 3 ) =4 : FOR 

J=0TO1 :READA:FORI=0TO7:READV:VPOKEA*8+I. 

V:NEXT:NEXT 

50 LOCATE10.11 :PRINT"PLAYERS?":I=USR(0) 

60 M=VAL(INKEY$) : IFM=0ORM>4THEN60 

70 M=M-1 :L=8:Z=12:E=0:F=8:T=0:U=0:B=131 : 

FORI=0TOM:R(I)=10:P(I)=0:C(I)=108+I*8:D( 

I)=140:M(I)=I :NEXT:FORI = 0TO15:A = RND(1 )*( 

M+1 ) :Y = RND(1 )*(M+1 ) :SWAPM(A) >M(Y) :NEXT 

80 FORI=0TO23:PRINTA$"H"A$"L":LOCATEZ.0: 

PRINT"O44****":NEXT:SOUND3.2:SOUND4.0:S 

OUND5.20:SOUND7.49:SOUND9.13:SOUND10.16 

90 FORI=0TOM:IFC(IK-1THENFORJ = 0TO180:NE 

XT:GOTO140ELSEIFI = 3THENS = PEEK(-1045) :A=( 

(SAND2)=0) :Y=( (SAND64)=0)-( ( SAND1 28 ) =0 ) E 

LSEA=STRIG(I) :S=STICK(I) : Y= ( t S >5 ) AND ( S< 9 

))-((S>1)AND(S<5)) 

100 IFATHENP(I)=P(I)-2:P(I)=P(I)-(P(I)<0 

)*(0-P(I) ) 

110 R(I)=R(I)-Y:R(I)=R(I)+(R(I)>20)-(R(I 

)<0):P(I)=P(I)-(P(IX9):C(I)=C(I)+P(I)*A 

(R(I)):D(I)=D(I)-P(I)*B(R(I))+8:D(I)=D(I 

)-(20>D(I) )*(20-D(I) ) 



120 PUTSPRITEM(I) .(C(I).D(I)).L(I).R(I): 

N=VPEEK(6144+(C(I)+8)¥8+( ( D ( I ) +8) ¥8) *32) 

:IFN=32THENSOUND12.80:SOUND13.0:P(I)=0:C 

(I)=C(I)-20*A(R(I) ) :D(I)=D(I)+16ELSEIFN= 

128THENC(I)=-3:U=U+1 

130 IFD(I) >191THENU=U+1 : PUTSPRITEM ( I ) > (0 

■ 0) .0:C(I)=-2:D(I)=1500-T 

140 NEXT:IFU>MTHEN190 

150 SOUND8.P(0)+6:SOUND2.-D(0)*(C< >0) :S0 

UND6.ABS(10-R(0) )*3:Z=Z+E:F=F-1 

160 IFF=0THENE=INT(RND(1 ) *3) -1 : F=RND ( 1 ) * 

8+2:G=Z+E*F:IFG<1ORG>31-LTHENF=0:GOTO160 

170 T = T+1 : LOCATE 0. : PR I NT A$"L": LOCATE Z,0 

:IFTMOD100O0THENPRINTSTRING$(L.B)ELSEPR 

INTSTRINGSCL.70-T/100) : L=L+ ( T=200ORT=400 

) :IFT = 500THENE = 0:F = 30: 6 = 128 

180 FORJ=0TO(3-M)*200:NEXT:GOTO90 

190 FORJ=0TO1000:NEXT:FORI=0TOM:PUTSPRIT 

EI.(0.0).0:N(I)=I + 1:D(I)=D(I)+T(R(D) 

200 NEXT:IFM=0THEN220ELSEFORJ=0TOM-1 : FOR 

I = 0TOM-1 : IFD(I + 1 XDd)THENSWAPN(I) . N ( I + 1 

) :SWAPD(I) .D(I+1)ELSEIFD(I)=D(I+1)ANDM(I 

+ 1 )<M(I )THENSWAPN(I) » N ( I + 1 ) :SWAPD(I ) .D(I 

+1) :SWAPM(I) .M(I+1 ) 

210 NEXT:NEXT 

220 GOSUB240:FORI=0TOM:LOCATE4.2:PRINT"R 

ESULT":L0CATE2.4+I:IFC(N(I)-1 )=-3THENPRI 

NTUSING"#' *#PLAYER":I+1 ; N ( I ) ELSEPRINTUSI 

NG"R' '#PLAYER";N(D 

230 NEXT:GOTO50 

240 S0UND7. 255: CLS :FORJ = 1T022: LOCATE 1 .J: 

PRINTSTRING$(30.39) ;: NEXT : RETURN 

250 DATA2.2. 1 . 1 ... 1 ... 1 » 1 ..... 1 . 1 . 1 . 2 . 3 . 

3.32, .60. 126.126. 126.24.24.60.39. ...... . 
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10>N2M0 


20>e7U5 


30>oFK3 


40 >cgt0 


50>1E70 


60>kD60 


70>73x3 


80>Ejo0 


90>x554 


100>ceL0 


110>s3Y3 


120 >ef R4 


130>TgT0 


140>4e10 


150>Uog0 


160>oZ01 


170>nm82 


180>uG50 
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ES3EE32/2+RAM16KBY TYRANNOSAURUS SOFT 



is u*> 




*mT&vy5izw<-ycfc03:T 



10 SCREEN 1 ,3:WIDTH29: COLOR 15.1 .1 :CLS:KEY 

OFF :L0CATE9. 10: PRINT" PLEASE WAIT";SPC(73 

); "TYRANNOSAURUS SOFT" ;SPC (74) ;"1990.8" 

20 F0RI=256T0727:A=VPEEK(I) : A=AORA¥2 : VPO 

KE I . A¥VAL (MID$( "8844221 1 " . IM0D8+1 . 1 ) ) 

30 NEXT:FORJ=0TO13:B$="":READA$:FORI=0TO 

31 :B$=B$+CHR$(VAL("&H"+MID$(A$,I«2+1.2)) 

):NEXT:SPRITE$(J)=B$:NEXT:CLS 

40 RESTORE480:FORI=11TO23STEP2:READA$:LO 

CATE0 . I : PRINTAS ; : NEXT : F0RI=7T027 : LOCATEI 

,7:PRINT"-":NEX.T:ST=1 :SC = 0:HS = 

50 BR=5:TX=45:HB=0:LOCATE6.19:PRINTUSING 

"#"; ST :RESTORE470: FORI = 1 TOST :READES(0) .E 

S(1).ES(2) .TU:NEXT:L0CATE6.23:PRINTUSING 

"#";TU; :FORI=0TO2:EY(I)=180:NEXT 

60 L0CATE14.11 : PRINT"START ! ! " : PLAY"T200V 

15L803C02BABA4R803F4E4R64E4F4R64C02BABAR 

803FED02B403C4" : FORI =0TO2999: NEXT -.LOCATE 

14.11:PRINT" 

70 FORI=0TO2:ER(I)=ES(I)*3+3:EC(I)=ES(I) 

*3+4:EH(I)=ES(I)*50+50:ES(I)=ES(I)*2+6:P 

UTSPRITEI+6. (1*60+80. EY( I) ) . EC( I ) . ES ( I ) 

80 NEXT:PUTSPRITE0.(TX.20) . 3. : PUTSPRITE 

1 . (TX.20) .15.1 

90 IFTIME>50THENTIME=0:GOTO160 

100 IFPEEK(-1045)=251THENIFTU>0THEN260 

110 IFSTRIG(0)THENIFTX+HB=45THEN190ELSEI 

FTX+HB=76ORTX+HB=136ORTX+HB=196THEN200 

120 S=STICK(0) :IFS<>3ANDS< >7THEN90 

130 IFS=3THENTX=TX+30:IFTX>195THENTX=195 

ELSEELSETX=TX-30:IFTX<45THENTX=45 

140 TM=1-TM:PUTSPRITE0. (TX.20) .3.TM+TM:P 

UTSPRITE1 . (TX,20).15.1:IFHB=0THEN90 

150 PUTSPRITE2. (TX.20) . 1 5 . 3 : PUTSPRITE3 . ( 

TX.20) , 10>BM+3:GOTO90 

160 PLAY"O4A16":EM=1-EM:FORI=0TO2:EY(I)= 

EY(I)-ERd) :PUTSPRITEI+6.(I*60+80.EY(I)) 

,EC(I) ,ES(I)+EM:IFEY(IX58THEN290ELSENEX 

T:PUTSPRITE4. (45,55) , 1 5 .3: IFBR=1THEN90 

170 BR=BR-1 :PUTSPRITE5. (45.55) .10.BR+3 

180 GOTO90 

190 PLAY"03F16":HB=1 : BM=BR : BR=5 : PUTSPRIT 

E4. (0.209) ,0,0:PUTSPRITE5. (0.209) ,0.0:PU 

TSPRITE2. (TX.20) , 1 5 . 3 :PUTSPRITE3. (TX . 20) 

.10.BM+3:GOTO90 

200 PLAY"O3F8":EA=(TX-75)/60:FORI=20TOEY 

(EA)-27STEP5:PUTSPRITE2. (TX+17.I) ,15.3:P 

UTSPRITE3.(TX+17,I+4),10,BM+3:NEXT:PUTSP 

RITE2. (0.209) ,0.0:PUTSPRITE3. (0.209) .0.0 

:HB=0:PLAY"O3F16" 

210 EY(EA)=EY(EA)-BM#30+130:EH(EA)=EH(EA 

)-50+10*BM:IFEY(EA)>180THENEY(EA)=180 

220 IFEH(EAX0THENEC(EA)=8 



230 PUTSPRITEEA+6. (TX+5.EY(EA) ) .EC(EA) ,E 

S(EA)+EM:SC=SC-BM*3+13:LOCATE1 .17:PRINTU 

SING"#####0";SC:IFSOHSTHENLOCATE1 .13: PR 

INTUSING"##*##0";SC:HS=SC 

240 IFEC(0)=8ANDEC(1 ) =8ANDEC(2) =8THEN280 

250 GOTO90 

260 COLOR. 15.1 5 : FORI = 0TO99: NEXT : COLOR. 1 . 

1:TU=TU-1:L0CATE6.23:PRINTUSING"#";TU; 

270 FORI=0TO2:EY(I)=180:PUTSPRITEI+6. (I* 

60 + 80.EY(D) ,EC(I) ,ES(I)+EM:NEXT:GOTO90 

280 FORI=0TO8:PUTSPRITEI. (0.209) .0.0:NEX 

T: LOCATEI 4. 11 : PRINT"CLEAR! ! " : PLAY"T120V1 

5L16D+FR8G+R805C804G+8" : FORI =0TO1 999 :NEX 

T:ST=ST+1 :IFST=6THEN310ELSE50 

290 FORI=0TO8:PUTSPRITEI. (0.209) .0.0:NEX 

T:L0CATE14,11 :PRINT"MISS ! ! " : PLAY"T120L8 

V1503E4R8EGER8G4EG4E." : FORI =0TO1 699: NEXT 

300 IFPEEK(-1044)O127THEN300ELSESC = 0:LO 

CATE1.17:PRINTUSING"######";SC:GOTO50 

310 CLS:LOCATE5.7:PRINT"ALL STAGE CLEAR 

! !";SPC(67) ;"YOU ARE GOOD PLAYER !!";SPC 

(72) ;"1990.8";SPC(74) ;"BY TYRANNOSAURUS 

S0FT";SPC(44) ;"THE END" : PLAY"T140V1 5L160 

5C04GFDBGFDB-GFDAGFDA-GFGA-FD03B04C2" 

320 IFPEEK(-1044)=127THENENDELSE320 

330 DATA 0000000000000000010106010101070 

F7070F8F800000020FCACFB758CFFDE80 

340 DATA 0000000002020200000000000000000 

0000000000242C6000000000000000000 

350 DATA 0000000000000000010106010107030 

07070F8F800000020FCADFB748CFCDE0F 

360 DATA 00000000888888888C8C8C8CF800000 

0000 00 0000000 00000000000000000000 

370 DATA 0000000070707070707070700000000 

000000000000000000000000000000000 

380 DATA 0000000000007070707070700000000 

0000 000000000 000 000000 000 00000000 

390 DATA 0000000000000000707070700000000 

000000 0000000 00000000000000000000 

400 DATA 0000000000000000000070700000000 

0000000000000000000000 00000000B00 

410 DATA 07060F0D2A35370A0D0F3F3F2F07030 

1F0B0F8D8A85676AAD8FAFEFEF8F080FC 

420 DATA 07060F0D0A35372A0D2F3F3F0F07001 

FF0B0F8D8AA5676A8D8F8FEFEFAF0E0C0 

430 DATA 070F1C3B3F3D3F3F1F0F07010101020 

CE0F038DCFCBCFCFCF8F0E 08080000000 

440 DATA 070F1C3B3F3D3F3F1F0F07010100000 

0E0F038DCFCBCFCFCF8F0E08080804030 

450 DATA 387D7D380C02070F1F3F3F7F7C797B1 

FE0F0F0E04040E0F0F8FCFCFEFEFEFEF8 

460 DATA 070F0F070202070F1F3F3F7F7E7F7F1 

F1CBEBE1C3040E0F0F8FCFCFE7E3EBEF8 

470 DATA 1.1,1.2.1.2.2.1.2.3.1.1.2.2.3.1 

,3.3.3.2 
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^mmm 



480 DATA "HI-SC"." 

0". "STAGE T.'TSUMAMI' 



'SCORE' 
0' 



490 ' i 

500 'I 1990.8.1 

510 ■ ' 



by Jun Ogata 



mmvnm 



tx y[y-<^-(Dxmm 

EY(n) %coYmm^n& 

a xxmmmm 

a$, b$ T.^fSA* 

BM mzft-Dtcti-IVOm 

BR tf-JL/©S 

EA e-Jl/^Stffct35 

EM SW^AS'-V^t, 

ffl 

EC(n) §©g 

EH(n) m(Di$t) 

ER(n) S0*«(YfflB 

ES(n) §©3.?5>Y SS 

HB ya'y^d^ruS 

HS A-rxaT 7 

I , J Jb-^ffl 

S X^-f^A^ffl 

sc 3.n7 

st xt— y«t 

TU o£&©» 



7D2%*R 



20 AX?«I/X7^YhA 



la^BJox^^iss 



sr-fum/yifi 



40-50 
60 5551 
70-80 

V—B^TJs 

90 g^iffiS 

100 o3^£i£5frffl¥iJS 

110 tf-il/fcS^SfcliJStf 

120-130 T^-pv^A*/:? 

140 ^b-f+'-^S 
150 S>'3'>+^^ 

160 m(D%wmn-wfs/'f- 

tf-;i/£«i:f3 

§©;STltJI 



170 




ieo 

200 
210 
220 

we 

230 fCDi^/XaJlS/ 
AYX=l7¥!K 
240 i?'J7*lS 
250 fflQ<\b£Z> 
260-270 o^^S 

280 t>vFmm/x->\'t>v 

290 ^"-ATT-A-SfliS 
300 U^b-f 

310-320 TT-Jb^UT 7 ®!! 
330-460 X^'fSK*-> 

470 3.T— i^*— £ (fiftO?^ 

480 SSfEfiET— £ (morSc 
490-510 REM£ 




VoPpAR^, 




E^P^AfcKfflx-^ 



45^— i> 



3BTfEof= 



[TYRANNOSAU 
RUS SOFTU© 

y-AB3B?o<ofc. 

ZtutJ.?-k%-D<-2Z 

l\tz(DVte, T.SOFT 

5 5o Wo w. Wow, WoWo 
TESTPLAYERS 
= H.luEB, 'Jv^.«"Vai" 
3?, nAj6*A/(50S«) 



10BSV7h7U1*>hSii«@ r f-?777'6j=<1 L S«*<r(itAS<*BB#>*WSa z <msa5>i*H«/. 



10>HF51 
50>ACu1 
90>Iv20 
130>Hpe0 
170>Ev60 
210>2xv0 
250>F700 
290>IcA1 
330>QeY0 
370>SkT0 
410>usa0 
450>5vb0 
490>3sV0 



20>Jrg0 
60>a1m1 
100>Fv60 
140>vXT0 
180>F700 
220>1C40 
260>VkP0 
300>SJM0 
340>juT0 
380>ehT0 
420>Hta0 
460>6ib0 
500>CSD0 



30>twF1 
70>BE92 
110>vNm0 
150>9IE0 
190>kff11 
230>t622 
270>O4c0 
310>HEG4 
350>CfY0 
390>udT0 
430>MwY0 
470>7HB0 
510>ZuV0 



40>Rbs0 
80>YB80 
120>3N80 
160>CMe2 
200>LUL2 
240>LC90 
280>Z872 
320>Fd40 
360>cdU0 
400>G2T0 
440>b120 
480>tqU0 



,m 
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C53E532/2+RAM16K BY 



wm 



j>-i^>s 



STRAWBERRY ISLAND 



-tmrnvyjiM^-yizfoos? 



i -ro, mncfi%zhz-<tztsLK *fc. f]%zfc-mt>^>tz<b, 
itmtctsb. RUN-rsmc-tz-^'ur<fc'*Uc, 

10 CLEAR500.&HDAFF : SCREEN 1 . 2 . : WIDTH32 : C 

0L0R15.1 .1 :KEYOFF:DEFINTA-Z:DIMU(15.10) : 

F0RI=264T0751 :A=VPEEK(I) : A=A0RA¥2 : VPOKEI 

,A0R(AAND&H1E) ¥2: NEXT: PRINT" [STRAWBERRY 

ISLAND:"SPC(18)"BY T.NIKAID0H"SPC(17)"S* 

r>t i-}X\" :BEEP:DEFUSR = &HDB00 

20 FORI=0TO41 :POKE&HDB00+I.VAL("&H"+MID$ 

(" 01 000821 0000 110008CD4A0019CD4D0019CD4D 

0011FF0FED520B78B120E82100203EF0010018CD 

5600C9" . 1*2+1 .2) ) :NEXT:A=USR(0) 

30 FORJ=0TO9:READC( J) : NEXT : FORI =8578T089 

38STEP8:FORJ=0TO4:FORK=0TO2:VPOKEI+J+204 

8*K.C(J-5*(I>8651 ) ) :NEXTK.J.I 

40 FORI=0TO1 :FORJ=0TO1 : READAS : FORK=0TO67 

:A=VAL("&H"+MID$(A$.K*2+1 .2)) :T=J*8192+I 

*68+768+K:VPOKET.A:VPOKET+2048.A:VPOKET+ 

4096.A:NEXTK. J, I : DEFUSR=&H7E : A=USR ( ) 

50 FORI=0TO1 :READA$:FORJ=0TO63:VPOKE1433 

6+I*64+J,VAL("&H"+MID$(A$, J*2+1 .2) ) -.NEXT 

J.I:FORI=0TO6:READA$.B$:G$(I)=A$+CHR$(29 

)+CHR$(29)+CHR$(31 ) +B$ : NEXT : FORI =0TO8: RE 

ADBX(I) ,BY(I) :NEXT:DEFUSR1=&H156 

60 ST=1 :E$=CHR$(27)+"Y":DEFUSR=&H90:CLS 

70 PUTSPRITE0. (0.209) .1 . SP : FORI=0TO21 : LO 

CATE1 .I:PRINTSTRING$(30.111 ) : NEXT :SP=2: B 

F=1:BT=14:RESTORE380:Z$="000":FORI=1TOST 

:READA$.B$.X.Y.BO:NEXT 

80 A=LEN(A$) :B=INSTR(A$."T"):IFBTHENA$=L 

EFT$(A$.B-1 )+Z$+RIGHT$(A$.A-B) :GOTO80 

90 FORI=0TO9:FORJ=0TO7:A=VAL("&H"+MID$(A 

$.1*7+ J +1 .1) ) :U(J*2.I)=A¥4:U(J*2+1 .I)=AA 

ND3:NEXTJ.I 

100 FORI=0TO9:FORJ=0TO12:A=U(J.I) :U(J.10 

)=1 :L0CATEJ*2+3.I*2:PRINTG$(A) ; : NEXT J, I 

110 A=USR1 (0) :F0RK=1T0LEN(B$)¥2:A=VAL("& 

H"+MID$(B$.K*2-1 .2)) : J= ( AAND&HF0 )¥1 6': 1 = ( 

AAND&HF) :LOCATEJ*2+3.I*2:PRINTG$(4) :U(J. 

I)=4:NEXT:IC=K-1 

120 PLAY"S0M7000L16O5G8GE8ED8DD6E8ED8DG4 

"."S0M7000O6L16C8CO5A8AG8GG6A8AG8GO6C4" 

130 IFPLAY(0)THEN130 

140 S=STICK(0) :U=(S=7ANDX>0)-(S=3ANDX<12 

):V=(S=1ANDY>0)-(S=5ANDY<9) : IFVTHENIFU (X 

,Y + V)< >1THENV=0 

150 IFSTRIG(0)ANDBFANDBO>0THENBF=0:U(X.Y 

)=5:L0CATEX*2+3.Y*2:PRINTG$(5) :BX=X*2+3: 

BY=Y*2:B0=B0-1 

160 IFU(X.Y+1)=0THENY=Y+1 :V=0 

170 IFSM0D2< >0THENSP=S¥2: IFPLAY ( 0) =0THEN 

SOUND0.0:SOUND1 .1 : S0UND8. 16 : SOUND1 2 . 3 :S0 

UND13.1 



180 IFU(X+U.Y+VX20RU(X+U.Y + V) >3THENX = X + 
U:Y=Y+V:IFU(X.Y)=4THENA=USR(0) :L0CATEX*2 
+3.Y*2:PRINTG$(0) : IFIC=1THEN240ELSEPLAY" 
S0M6000O6L64CDG8" . "S0M60 00O5L64EFB8" : U(X 

Y) = " I C = I C~ 1 
190 IFINKEY$=CHR$(24)THEN250ELSEPUTSPRIT 
E0. (X*1 6+24. Y«1 6-1 ) . 1 5. SP: LOCATE 1 ,22:PRI 
NTUSING"CSTAGED:## CBOMB]:## CTHIED :##" ; 
ST;BO;BT:BT=BT+(BF=0) : IFBT>- 1THEN1 40 
200 S0UND4.1 :SOUND5.12:SOUND6.31 :S0UND7. 
27:SOUND10.16:SOUND11 , 1 50 : S0UND12 . 5 :SOUN 
D13.0:SOUND6.20:SOUND12.50 
210 U( (BX-3)¥2.BY¥2)=0:FORI=0TO8:A=BX+BX 
(I) :B=BY + BY(I) : BM( I ) =0 : IFA=10RA = 290RB< 00 
RB=20THENNEXTELSEIFU( ( A-3 ) ¥2 . B¥2 ) =2THENB 
M(I)=3:U( (A-3)¥2.B¥2)=3:L0CATEA.B:PRINTG 
$(6):NEXTELSEU( ( A-3 ) ¥2 . B¥2) =0 : LOCATE A . B : 
PRINTG$(6) :NEXT 

220 IFVPEEK(6147+X*2+Y*64)=106THEN250 
230 BT=14:BF=1 : FORI =0TO799: NEXT : A=USR( ) 
:FORI=0TO8:A=BX+BX(I) :B=BY+BY(I) :IFA=10R 
A=29ORB<0ORB=20THENNEXT:GOTO140ELSELOCAT 
EA.B:PRINTG$(BM(I) ) :NEXT : G0T01 40 
240 PRINTEJ") )"STRING$(14.61 )E$"*) STAGE 

CLEAR! " E$" +) "STRINGS (14. 61 ):ST=ST+1 :PL 
AY"S0M7000L16O5G8DB8AG8AB6A8BO6D8O5BG4" . 
"S0M7000L16O5D8O4BO5G8FE8FG6F8GB8GE4":FO 
RI = -1TO0:I=STRIG(0)IMPP.LAY(0):NEXT:PUTSP 
RITE0. -0:IFST=12THEN270ELSE70 
250 PRINTE$")+"STRING$(11 ,61)E$"*+ GAME 
OVER "E$"++"STRING$(11 .61) :A=USR(0) :PLA 
Y"S0M7000L16O6C8CO5B8AG8FE8DC6C6C6" . "S0M 
7000L1 605C8C04B8AG8FE8DC6C6C6" 
260 IFPLAY(0)THEN260ELSEA=USR1 (0) :A$=INP 
UT$(1 ) : IFA$=CHR$(24)THEN70ELSE60 
270 CLS:READD$:FORJ=0TO7:A=VAL("&H"+MID$ 
(D$. J*4+1 .4) ) :F0RI=1T015:L0CATEI*2.J*2:I 
F(AAND2 A (15-I))=0THENNEXTI. JELSEPRINTGS ( 
4) -.NEXT I. J 
280 PRINTE$"2'THANK YOU"SPC ( 57) "FOR YOUR 

PLAYING !":PUTSPRITE0> (112.95) .15. 2: PL AY 
"S0M7000L16O6C8O5BA8O6CO5B8AG8BA8GF8AG3F 
8FF8FG6F6E8EG806C4R805D8DD80E6D6C306C2". 
"S0M700 0L16O5A8GF8AG8FE8GF8ED8FE3D8DD8DE 
6D6C8CE8G4R804B8BB8B05C604B6A305G2" 
290 GOTO290 

300 DATA 113.113.81.81.81.49.49,33.33.33 
310 DATA 40404066CC40404002020266CC02020 
203010F1B3F2E7F5BA9FB1F07F6DEFF6D7F767F5 
B7F6E7B3F FCF0C0EEFCD8E 08000000007 1F3F3F7 
FC060C0F0FCFEFEFF7F7F7F7F 
320 DATA 71F1F14747F1F17171F1F14747F0F07 
0C1C1818181818181C1C1C8C8818181818181818 
1 61 6161 61 8686866161 61 61 61 F1 41 F1 51 51 51 51 5 
1F1F1F1515151515151515151 



60 







330 DATA 3F3F1F07FEFCF8E0FEFEFCF0030777F 

FFFFF7F1F80C0DCFEFEFEFCF07FFFF8FF7707030 

0FCFEFEFEDCC080002000 020 0400004009FBF9F0 

0F9F BF900 1 5AA1 5005 1AA5 100 

340 DATA 514141415454545441414141F1F1F1F 

1F1F1F1F1F1F1F1F1F1F1F1F1F1F1FEE1E1E1E1E 

1E1E1E1E1E1E1E1E14141515171515141F19181F 

1F1918141F0908050F0908050 

350 DATA 030F1F1F3F1F1F0F071F3F3F7F7FFF7 

480E0F0F0F8F0F0E0C0F0F8F8FCFCFE9C030F1E1 

E3F1E1F0F071F3F3F7F7FFF7480E0B0B0F8B070E 

0C0F0F8F8FCFCFE9C 

360 DATA 030F1D1D3F1D1E0F071F3F3F7F7FFF7 

480E070 70F870F0E0C0F0F8F8FCFCFE9C030F1A1 

A3F1A1D0F071F3F3F7F7FFF7480E0F0F0F8F0F0E 

0C0F0F8F8FCFCFE9C 

370 DATA nn. nn> *a> *a >oo>oo>pp> pp»bc,de >f 

g > h i > j k > Im > > i ,2 > -2 > 2 > -2 > i-2>-2i > -2 > 2 > -2 > 

2. .2.2 

380 DATA TT004T4007B3F6004T400483F601030 

040 1TE401 080060 10A0A80TT0. 12436277. 2. 0.1 

390 DATA 001T402102A4021T4BAA0044T0068T0 

044T00240 080044AB81A68T9040.02417283A6.0 

.9,3 

400 DATA 004TT4TT68AAT4TT683E8AA4AABT6AA 

A840400 1 06A08A9840080 1 . 01 21 021 22267C5 . 1 

2,9.6 



410 DATA TT4555555402AA8040B2AA040AF2F04 

082AE040EAAB040B20A0402AAC04TT4. 64354767 

.0.0.8 

420 DATA TT44T0244A24B944F348184A24EE050 

24B201 104F3C518AAEC5 5 A8T1 400220, 4456A5.1 

2,2,9 

430 DATA 41T00410020041002F04TT4T3C0431T 

050100F05010200301T80010A28,5183C50898,9 

,0.5 

440 DATA 01040400D040400904140E9EC040010 

0540BA20 14488001 048C1 0404A81 A01 401 10010, 

11128393174888C9,0,4,5 

450 DATA 001TT1T00552BB8T2AE8EAEA804T6A2 

4FFF4204EBE4004EEE42543AA8T,12B48609,0,3 

,13 

460 DATA 008004TAA0400440240107FC5T711DT 

40 11002AA9003E001T0801008FC01T, 5081 12332 

6.12.0,5 

470 DATA T40680036AD83A06598A302518280A6 

A8020 04A843004006E406A8606T06070550.2326 

C6C9.1 ,0,8 

480 DATA D9C0C54495D5A4F9949545BA6AA8D80 

60045AEE02441782A4A5C0024560415455CD514, 

11907258A7.6.0.6 

490 DATA 11F67D16051609F638A654A610A0113 

6 
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50 X^^YSA^->^8 

m^my<yy*v^ifi$,/ 

JS©S7JyiJ?H2*32* 
60 <f-A*7JJ$lb 
70-130 Xr-ylfflK 

7o~iio -Rvy^— $<DM 

foZfo ■ SMt^'^y^m 
120-130 =o.-Y*^i7 
140-230 XYVJb-Z? 
140 7tY'^ASCc*:§ 



nvuv^km&mT-Q 



45"*— i> 



1B>oHD5 
50>Oo34 
9B>vBE1 
13B>4u00 
17fl>SSP0 
210>KUq5 
25B>KRE2 
290>V400 
330>BYX2 
37B>72p0 
410>mPm0 
45fl>rnj0 
49B>ou80 



20>1Vb2 
60>QpA0 
100>TUb0 
140>5AR1 
180>rso3 
22B>UL90 
260>wLO0 
3BB>Di70 
340>F5S2 
380>8xd0 
420>LRk0 
460>b6n0 



30>X2F1 
70>0Mc1 
11B>w402 
15B>jkB1 
19B>spY2 
23B>7gT2 
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240 7.7—VOVT 
250-260 f-kX-K- 
270—290 7T-Jb^'J7 

270 fE 

280 X^t — i>'SS/Sn 

— Vyt> 

290 *t7(JSPfUU-:7) 
300-490 7*— 5> 

300 ®&-%:*5C¥m(Dti^ 

-^-^(fflOrSE^Z*) 

310-340 -J^y^rV^fDJK 

(morSc*^^) 
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f-feSiJO*ffi(VRAM©SB 
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A/ 335;=LA,Uz:<fcSn(©HS 
Mooters?. ^vA-ouro? 
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CS32/2+ VRAMB4K BY ±xRi 



Activity for Employment 



-aQjBTOBdl'C-yCdDO*"*" 



£T£SI3. r SETBEEPl, 4 J £it ; fJl''J:<££l\, 



10 SCREEN5:DEFINTA-Z:SETBEEP3.4:OPEN"GRP 

:"FOROUTPUTAS#1 : P=3 :SETPAGE0 , :COLOR7 , 1 . 

1 :CLS: PRESET (30. 100) :PRINT#1 ."Act ivity F 

or Employment ." 

20 SETPAGE0.1 :COLOR15.0,0:CLS:READW,X0.Y 

0:X0=(X0+15)*3:Y0=(Y0+15)*3:CIRCLE(W.W) . 

W.15:PAINT(W.W) , 1 5 :SETPAGE0 .2: COLOR1 5 , 12 

.1 :CLS:X=X0:Y=Y0: CIRCLE (X+W, Y+W) . W*2, 15: 

PAINTCX+W.Y+W) .15 

30 READXP.YP.L:FORI=0TOL:X=X+XP*3:Y=Y+YP 

*3:COPY(0.0)-(W*2.W*2) .ITO(X.Y) .2.0R:NEX 

T:READR:IFR=1THEN30ELSECIRCLE(X+W.Y+W) ,W 

#2,13:PAINT(X+W,Y+W) .13 

40 SETPAGE0.3:CLS:COPY(0.0)-(256.212) .2T 

0(0.0) .3:SETPAGE0.1 :COLOR11 . 1 . 1 :CLS : LINE 

(97,75)-(159.137),15,B:X1=X0-30+W:Y1=Y0- 

30:X2=X1 :Y2=Y1 :XP=0:YP=0 

50 T=STICK(0)+STICK(1 ) : S = STRIG ( ) +STRIG ( 

1 ) :X1=X2:Y1=Y2:XP = XP+( (T=2) + (T = 3) + (T = 4) ) 

«(XP<3)-((T=6)+(T=7)+(T=8))*(XP>-3) :YP=Y 

P+(S=0)»(YP<2)-(S=-1 )*(YP>-2) :X2=X1+XP:Y 

2=Y1+YP 

60 SETPAGE1 .3:C=POINT(X2+30.Y2+30) :LINE( 

X1+30.Y1+30)-(X2 + 30.Y2+30) .1 :SETPAGE1 .1 : 

COPY(X2.Y2)-(X2+60.Y2+60) .3T0(98.76) .1:1 

FC=12THEN80ELSEIFC=13THENELSE50 



70 BEEP:READE:IFE=0THENPRESET(100.55) :PR 
INT#1,"Arrival.":FORT=0TO2222:NEXT:P=P+1 
:GOTO20:ELSEFORS=0TO1 :S=-STRIG(3) :PRESET 
(55.55) :PRINT#1 ."You Find Employment .": P 
RESET (170. 150) :PRINT#1,"END.":C=RND(1)*1 
2+2:C0L0RC:NEXT:RUN 

80 S0UND7. 19:SOUND0.0:SOUND1 .10:SOUND8.1 
6:S0UND6.18:S0UND11 .0-.SOUND11 .0:SOUND12. 
30:SOUND13.8:FORC=7TO0STEP-1 :COLOR=(1 .C. 
CO :FORT=0TO60:NEXTT.C:SOUND8.0:P = P-1 
90 IFP>-1THENPRESET(105.150) :PRINT#1."RE 
ST";P:FORS=0TO1:S=-STRIG(3) : NEXT : GOTO40 : 
ELSEPRESET(95.55):PRINT*1 ."Game Over":FO 
RS=0TO1 :S=-STRIG(3) :NEXT:RUN 
100 DATA 15. 35. 5. 0> 1. 24. 1.-1. 0. 
24. 1. 0i-1 i 24. 0. 0. IB. 0» B. 1. 0. 4 
4. 1.-1. 0. 10. 1 » 0. 1' 11 • 1 • 1 ' 0' 10 
. 1,-1, 0i 44. 1. 1i 0i 12i 1i 0. 1> 8. 
1. 1. 1. 8. 0. 0. 8. 45. 30.-1. 0. 44. 1 
• 0t-1 1 11i 1. 1. 0. 44. 1. 0.-1. 17. 1. 
-1. 

110 DATA 15. 1. 0. 1. 29. 1.-1. 0. 15. 
1. 0.-1. 29. 1.-1. 0. 12. 0. 0. 7. 45. 
»-1. 1. 22. If 0.-1. 22. If 1. 0. 12. 1. 

0. 1. 29, 1.-1. 0. 20. 1.-1.-1. 11. If 
1> 

120 DATA 13, 1. 0.-1. 17. 1.-1 f 1» 8. 
. 0i 7. 0i 30. 1.-1. 29i 1. 0i If 10. It 
-1 . 0. 29. 1 . 0. 1. 5. 1i 1. 0- 29. 1 . 
■ If 12. If 1 . 0. 5. If 0.-1 • 12, If 1 . 
0, 8, 1 
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130 DATA li-li 5. 1.-1, B> 8. 1. 1.-1, 

8. 0- 0. 6- 20 i 0. 0> 1> 8> 1> 1. 0. 24, 
1. 0.-1. 8. 1.-1. 0. 44. 1. 0. 1. 8. 1. 
1 . 0. 33. 1 . 0. 1 . 4. 1 . 1 . 0. 10. 1.-1 

. 0. 44 

140 DATA 1. 0. 1. 15. 1. 1. 0. 12. 1. 
,-1 . 10. 1 . 1 . 0. 4. 1 . 0. 1 . 10. 1 . 1 , 
0. 15. 1. 0.-1. 10. 1 . 1 . 1 . 10. 0. 0. 6 
. 45. 16.-1 ,0.15.1.0.1.13.1.1.0 
. 15. 1 

150 DATA 0.-1. 29. 1.-1, 0, 15, 1. 1, 1 

. 10. 1.-1. 0. 15. 1 . 0. 1 . 18. 1.-1,-1. 

17. 1 . 0. 1 . 17. 1 . 1 . 0. 7. 1 . 0.-1 . 2 

9. 1. 1, 0, 7, 0> 0, 7, 0, 30. 3.-2. 3. 
1 ,-3,-1 



160 DATA 3, 1. 3,-1, 3. 1,-3,-2. 3, 1, 
3.-1 , 4. 1 . 1 , 3, 3, 1 , 1 ,-3, 3, 1 . 1 . 3 
. 4. 1,-3. 1. 2. 1, 1, 3. 2. 1. 2, 0, 10 
. 1 , 0,-3. 1. 1.-4, 0, 1 , 1, 0.-3. 1.1. 
4, 0, 1 , 1 , 0,-4, 3, 1,-2. 0, 5, 0, 0, 
15. 22. 30. 0.-1, 29. 0. 1 




x, y -fyyftmm 

X0, Y0 7.5>-h>mm 
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■ r ^mmt> — k j 5^ u x h 

10 CLEAR 200:COLOR 1.2.2:SCREEN 1:WIDTH 

29:KEY0FF:DEFINT A-Z : MAXFILES=2 

20 ON ERROR GOTO 660: ON STOP GOSUB 660 

30 OPEN "G-WORD" AS#2 LEN=40 : STOPON 

40 FIELD #2.20 AS AAS.20 AS BBS 

50 OPEN "GRP:" AS#1 

60 COLOR 15>4.4:SCREEN 3.3 

70 SPRITE$(0)=STRING$(14.255)+STRING$(2. 

0)+STRING$(14.255) 

80 Y(0)=63:Y(1)=95:N=0 

90 DRAW "BM0.64" 

100 PRINT #1 ." MAKE" 

110 PRINT #1 ." TEST" 

120 S=STICK(0) 

130 IF S=5 THEN N=1 

140 IF S=1 THEN N=0 

150 PUTSPRITE 0. (45.Y(N) ).8 

160 IF SO0 THEN FOR W=0 TO 150:NEXT 

170 IF STRIGC0) THEN 180 ELSE 120 

180 IF N=0 THEN 190 ELSE 330 

190 ' t:>9M97t-f 

200 SCREEN 1 :COLOR 1 .2.2 
210 LOCATE 9.5:PRINT "t:>9M 99t-f" 
220 GOSUB 650:LOCATE 0.10:A$="" 
;<9M A:";A$:IF A$="" THEN 220 
230 GOSUB 650:LOCATE 0.13:B$="" 
9i l\ :";B$:IF B$="" THEN 230 
240 GOSUB 650-.LOCATE 7>18:C$="" 
Kf^S- • -Y/N";C$:IF C$ = 
250 IF C$="Y" OR C$="y 
260 IF C$="N" OR C$="n 



INPUT 



INPUT 



INPUT "0 
THEN 240 
THEN 270 
THEN 210 ELSE 24 





270 LSET AA$=A$ 

280 LSET BB$=B$ 

290 R=R+1 :PUT #2.R 

300 GOSUB 650:LOCATE 3.21 :D$ 

OU ? lO'lZ i/?^ft- -Y/N";D$:IF D$ 

00 

310 IF D$ 



"":INPUT "9 
"" THEN 3 



'Y" OR D$="y" THEN 60 



320 IF D$="N" OR D$="n" THEN CLS:GOTO 21 
ELSE 300 

330 ' =/2?9M 

340 SCREEN 1:C0L0R 1.2.2:G0SUB 620 

350 LOCATE 3.9:PRINT R;"t:> J t:<9M ** ? 

U?7" 



360 GOSUB 650-.LOCATE 3 . 1 1 : E = : INPUT "t:/t 

j ya";9M i>?^»";E 

370 IF E<0 OR E>R THEN 360 ELSE DIM F(R) 

380 FOR 1=1 TO R:F(I)=I:NEXT 

390 T=RND(-TIME) :FOR 1=1 TO R:M=RND(1)#R 

+1 :N=RND(1 )*R+1 :SWAP F (M) . F (N ) :NEXT 

400 CLS: LOCATE 5. 9: PRINT "UL>»5 &399M V? 

V 

410 LOCATE 5.11:PRINT "9»7*-< h*A C0] *-" 

:FOR 1=0 TO 2000:NEXT 

420 K=0:FOR J=1 TO E:Q=F(J) 

430 GET #2. a 

440 A$=AA$:B$=BB$ 

450 CLS:LOCATE 9 , 5 : PRINT"9M" ; J ; "iy* " 

460 LOCATE 2.10-.PRINT "iWI = >" : A$ 

470 GOSUB 650:LOCATE 2 . 13 :G$="" : INPUT "3 

9i ";G$:IF G$="0" THEN 500 

480 IF LEFT$(G$+STRING$(20." "),20)=B$ T 

HEN K=K+1:L0CATE 11.20:GOSUB 640:PRINT " 

t-<M !":FOR 1 = TO 2000 :NEXT : GOTO 510 

490 COLOR 6.2.2:L0CATE 9.20:GOSUB 640:PR 

INT "??»*-( !!":FOR 1 = TO 2000 : NEXT : COLO 

R 1 .2.2:CLS:GOTO 450 

500 LOCATE 9.20:GOSUB 640:PRINT "fe-ftK A 

";B$:FOR 1=0 TO 2000:NEXT 

510 NEXT 

520 CLS:LOCATE 5.5:PRINT K\"ij tJIHVIW 

530 LOCATE 2.8: PRINT "t'Mn* ^t^l^SM => 

\h ■ ■ - 1 " 
540 LOCATE 2.10:PRINT 
lib •••2" 
550 LOCATE 2.12:PRINT 

■ • -3" 
560 GOSUB 650:LOCATE 5 . 1 4 : H=0 : INPUT 
9 I5C' , '77»";H 
570 IF H=1 THEN 420 
580 IF H=2 THEN ERASE F:GOTO 340 
590 IF H=3 THEN ERASE F : GOTO 60 
600 GOTO 560 

. 97*ll»-?:> 

R=LOF(2)/40 
630 IF R<1 THEN PRINT "f^SM ft* ?'J?t:>":P 
RINT "jlla- t* MAKE J Tly^l^Vl" : FOR 1 = 

TO 4000:NEXT:RETURN 60 ELSE RETURN 
640 Y=CSRLIN:X=POS(0) :LOCATE 0,Y:PRINT S 
PC (29) -.LOCATE X.Y:RETURN 
650 IF INKEYSO"" THEN 650 ELSE RETURN 
660 CLOSE:ON ERROR GOTO .0:END 



':/a99M>tllit:/9M 3 t 



'31:2- z th*IL 



h^L- 



610 
620 



myuv^ixmrnm^- 


-S7(ffiU75l3:45^-S/) 


10>SZI0 


20>6j30 


30>0i70 


40>Lv30 


50>JI10 


60>GP10 


70>GXB0 


80>6S40 


90>L100 


!00>uS10 


110 >f Z10 


120>hg00 


130>2r10 


140>Vq10 


150>Fm10 


160>SF60 


170>pr30 


180>o030 


190>D0F0 


200 >gn00 


210>E180 


220>90T0 


230>7AQ0 


240>HIY0 


250>HO50 


260>DbA0 


270>0p00 


280>EP00 


290>oY10 


300>ujn0 


310>1h50 


320 >C3C0 


330>8tA0 


340>BC20 


350>HrI0 


360>OrR0 


370>5p70 


380>EK40 


390>gHg0 


400>U1F0 


410>m6O0 


420>5450 


430>nI00 


440>T120 


450>3880 


460>8560 


470>53P0 


480>u2A1 


490>kAi0 


500>x2L0 


510>B200 


520>0GC0 


530>JxP0 


540>A3P0 


550>YMG0 


560>nwL0 


570>uO10 


580>Ft20 


590>dm20 


600>P700 


610>D2B0 


620>5P10 


630H0e1 


640>OcC0 


650>p740 


660>RX10 
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«j 



©z-5Sfrti©g5£±r3^r. ^ocftsts 

"To r *ffiSKftj£l^X^© r lffi;gj©g|37} 






! *«LvSmtj Will* • FS-A1W *(I-IR0M) 

1 DEFINTA-Z:DIMX(511 ) .Y(511) : 
C0L0R1 5 . . B : SCREEN5 : SETPAGE > 1 
:FORI«BT06:READY:PUTKANJI(1»1 
6.B) ,Y.9:NEXT:F0RI=BT0511:X(I 
> =IM0D32 : Y ( I ) =1*32 : NEXT : FORI = 
BT0511 :R=RND(1 )*511 :SWAPX(I) . 
X(R):SWAPY(I) »Y(R) : NEXT: OPEN" 
GRP:"AS#1 :SETPAGE.B:G0SUB4 

2 FORI=BTO5BBB:NEXT:FORI=0TO2 
:READY$:CLS:PRESET( (16-LEN(Y$ 
)¥2)*8.98) :PRINT#1 .YS:F0RT=8T 
O5BBB:NEXTT.I:GOSUB4:FORI=0TO 
511 : SETPAGE. 1 : P=P0INT(88+X( I ) 
■ Y(D) : SETPAGE. B : PSET ( 1 B4+X ( I 
).98+Y(I) ) .P:NEXT:F0RI=BT0999 
9:NEXT:DRAW"BM1B4,12B" 

3 PRINTtl ."«;*i«;»4":F0RI=BT01S 
TEPB :NEXT : 0ATA1 6999 . 14674 . 1 3B 
92 . 1 5230 . 1 6997 , 1 4437 . 1 2921 

4 CLS:C0PY(B.fl)-(79.15) .1T0(8 
8.98>»B.PSET:RETURN 

5 DATA tWzni- •• <><t^ih.... 
S»T»98BBR#? S<L*6Nl-*>"-*«»t5. 



1fl' C0LOR15.7.7:SCREEN5.3:F0RA 

=1T032:READB:B$=B$+CHR$(B) :NE 

XT:F0RA=1T032:READW:W$=W$+CHR 

$(U) :NEXT:SPRITE$(B)=B$ 

20 SPRITE$(1)=W$:DATA0.0.B.B, 

0.B.B.B.0.B.B.B.255.63.31 .15 

3B DATA128. 128. 128. 128. 128.12 

8.128.128.128.128. 128.128.255 

. 255. 254.252. B.3. 7.1 5. B.7. 15. 

63.127.31 ,0.0. 0,0.0,0.0. 96. 11 

2.120.B.112.12B.124.126.120.0 

,0,0.0,0,0 

40 Z=150:LINE(0.Z)-(256,Z) .4: 

PA INT (1.1 51 ) .4:CIRCLE(2BB.50) 

,20.6:PAINT(200.5B).6 

50 X=256:Y=121:F0RS=1T0288:PU 

TSPRITEB. (X.Y) . 1 ,B:PUTSPRITE1 

,(X.Y) .15.1 :X=X-1 :NEXT 

6B G0T06B 








[lSd;otairL/7:L^/c;t>4^ : fe}SfflUrn 



+7.: mm- i-ci 

1 FORJ=BTO508:NEXT:PLAY"S7M10 
0O7B" 



/utfOornr-fi'cQrDXi 4^>(M)© 

AV-KJbh;tfJWW:<tti7:<3©r-rz)\ ^tl 






r 0n/inn/j 

«i«IIII^77/«77>*-7-(A'7ft?7a'7FL0WER 

1 SCREEN3.3:C0L0R15.-12.2:FORI 
=0TO3:FORJ=0TO3:READA:VPOKE14 
336+ J +1*1 6. A: NEXT J. I: SPRITES! 
2)=STRING$(32.255) 

2 CLS:LINE(80.48)-(175.111) .9 
.BF:PUTSPRITE0. ( 176. 64) . 12. 2: 
PUTSPRITE1. (48.75) .12.2 

3 X=178:Y=76:D=192:E=64:S0UND 
7.55:S0UND6.15:PLAY"T96V12C4" 

4 X=X-6:Y=Y-(Y<96)«2:D=D+ (D>8 
0)*10:E=E+1 :PUTSPRITE2. (X.Y) . 
1 5.0: PUTS PRITE3, (D.E) .15. 1 

5 IFX>80THEN4ELSEOPEN"GRP:"AS 
#1 : PRESET (74. 128) :C0L0R14:PRI 
NT#1 ."OUT !": A$= INPUTS! 1 ) : RUN 

6 DATA 12.255.15.255.0.255.22 
4.255.192.192,0.0.0.0.0.0 



«ffrtfc. 

Effete, RUN£ti£>£cfc<*frtt5Ef 

5A©rt§t, L I NE, PA I NT, C I 
RCLE£:3-<35fc9Sx©t©tt*frO^ 



r^-f^-j SHU!*' L*5 

1 C0LOR15.11 .1 :SCREEN2:0NSTRI 
GG0SUB4 

2 CIRCLEM14. 56) .14.11 .. . 3 : PA 
INT (114. 56). 11 :STRIG(0)ON:LIN 
E(11B.8B)-(13B.13B) ,7.BF:LINE 
(11B.70)-(120.79) .14.BF:LINE( 
121 ,71)-(13fl.79) .1.BF 

3 G0T03 

4 LINEU21 ,70)-(140.75) .11 .BF 
: CIRCLE (114. 56) , 1 3.9. . . 3 : PAIN 
T(114.45).9:FORJ=BTO350:NEXT: 
RETURN2 
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S„ tUL<73C£5 J ?^T r 7T>?-Art/W7=f-7A J »I5Em , 1*fcliiflaain*TfiS';<fc-3l.v *T*li7T>?'At|5]UTT„ 



mz<n^-i--<Dim.y'o-y^Mt. «]=E 3(R a m 8 KmjEE32/2+J 

**=^32/2+(V R AMI28K)!, ***=^ 2 +ffflTt 



*=E32/2+(V R AM64KiiLh) 



Sffltf *V 57 7©&*r*U «fc 5*0 r SH7- 
7x-j©iffai£<7)iIIitffcfel/3l^o 



[ ><>Htj mm- t-ci 


1 C0L0R1 


.15.- 


5:SCREEN2:CIRCLE 


(121.100) .90 


. ,.2:CIRCLE(140, 


100) .30. 


. , ,3 


LINE(85.50)-(127 


,50) :LINE<127.50)-(122.113) :L 


INEM22. 


113)- 


-(132.115) :LINE(1 


43.130)- 


(163 


135) :PAINT(121 .4 


0) :F0RJ = 


0TO900: NEXT: FOR J=0TO1 


5:LINE(122+X 


113+Y)-(132.115+ 


Y) :X = X-. 


4:Y=Y+2:NEXT 


2 G0T02 







T'lsiw-izimMmwx.focD-mv. m 

-*mz?M£. §EW7Wl/77&t>im> 

-£its;iur*t> r -&5n;tK£o£©7.- 

7c itihjZZJzitfcibo z.Uce\eryt> 

>(M), *nofc^AV*ur5>o 



W^Jlim ■ JtOxelery 

10 KEY0FF:SCREEN1 

20 C0L0R15.1 .1 :LOCATE5.10:PRI 

NT"ff»< 9?3 % 7bl*»'- Ukb**" : LOCA 

TE8.12:PRINT"L*->8!9?3»6~'*Tl,*:> 

ft!":L0CATE11 . 14:PRINT"* 7*»"./* 

•V " :FORI = 0TO20 : LOCATE0 . 1 : 

PRINTSTRING$(32.0) :NEXT:LOCAT 

E14.16:PRINT"U- -iM* ":L0CA 

TE5,30:PRINT"*^°*»*i.,*4' , t>L-»":F 

ORI=0TO1 :I=-STRIG(0) 

30 NEXT 

40 CLS:SCREEN2 

50 COLOR. 4. 4 

60 CLS:C0L0R.4.4:PSET(86.64) . 

15:DRAW"E10":PSET(176.64).15: 

DRAW"H10":PSET(86.128) .8: FORI 

= 1 T09: DRAWE5F5" : NEXT 

70 FORI=0TO20:X=INT(RND(1)»25 

6) :Y=INT(RND(1)«192) 

80 PSET(X.Y).2:NEXT:IFINKEY$= 

"TTHEN100 

90 GOTO70 

100 CLS:SCREEN1 

111 COLOR1.8.8:LOCATE8.10:PRI 

NT" V •}»»»* !! ! !":PLAY"T10 

0O5AB":GOTO110 



COLORTXDtiODgytCd^fFSSt, =fc 
li^fimflCill/ri^o H«=fcAUi-7 

7% U*©S©^Ut"SI§CIJ, r 27x'J 

or, SSBI^o353©¥*5?SrUfc 

U-T7K • i-A-fflilllCt, 



'ft^bftl-o/j «»»•*«» 


* * 


1 COLOR. 1 


.1 :SCREEN7:F0RI = 


.9T0 


.1STEP-.1 


:CIRCLE(255.106) 


.255 


.1*10+1 . . 


.I:PAINT(255.106) .1* 


10+1 :NEXT 


:FORI=1T015:LINE(I*3 


6.0)-(I»36>212) .0:NEXT 




2 PLAY"S0M200O4C":FORI=2TO11 : 


COLOR=(I. 


7,7,7) :COLOR=(I 


.0 > 


0) :NEXT:FORI=11T02STEP-1 


COLO 


R=(I.7>7, 


7) :COLOR=(I.0.0 


0) :N 


EXT:G0T02 







s«t5<f#^©B3BB*e>7ac*ij-r 

BuMT-7l:Ufctffl„ &#&#§! U< 

stgeornr^So mmt, 5<fc5£§» 
afflSS^bJiS^^eot©^*, SfM- 

K*t!TL\fct l »C^,JIUfc©*5 i is"C^6 



r E X CLIPSE OF THE MOONj rtjgii • ^i"*)* 

10 COLOR. 1 .1:SCREEN1 :KEYOFF:U 

IOTH 1 1 : LOCATE .10: PRINT" 1 990*8 

H6,7B":R=RN0(-TIME) :FORI=0TO1 

:I=-STRIG(0):NEXT 

20 SCREEN2,0:X=50:Y=150:SPRIT 

E$(0)="<~BIM~<":FORI=0TO100: 

X1=RND(1)*255:Y1=RND(1 )»191 :P 

SET(X1 .Y1 ) .15:NEXT 

30 PUTSPRITE0. (119.76) .1 .0:PU 

TSPRITE1 . (X.Y).15.0:X=X+.1 :Y= 

Y-.1 :IFY<0THEN40ELSE30 

40 SCREEN1 :WIDTH16:PRINT"»»tt!/ 

»i' 21»44ft12»«X9M 23»12#18»* 

n>) 0»40»30»- 



%ttz? JK*ft-®-3>z>m®*&0Z< 
5 3©e3>tfa>L<"SL\*fcS6A7 

t<c, ±©PiPS*67Ji/Vty^©«ffl*[5] 

-zZl^tzhj^&.&tZZtf'ttZ-to JS 
l5.kt£1S., 3.nttI«©7Y?7Wcftt^ 

tfSUbti^ tiffi*6¥*ffu ! r<§iT^ 

2i?c<i:A\ !5ifffl©h577/ci/)\ £S© 

©75 V K SSISAMj'^tfbJSflUrnSo 
£&*C, 5tB5j:ot©^CL^or, II 



1 COLOR15.0.0:SCREEN5.0:FORA= 
0TO22:FORB=0TOA:LINE(B«8.16+A 
*8)-STEP(7.7) .6.BF:LINE-STEP( 
-4.-4) .RND(-TIME)*9+2.BF:PSET 
STEP (4,0) .0:NEXTB.A:SPRITE$(0 
)="<<B>«<:~<":SPRITE$(1 )="■"■" 

2 FORA=0TO23:FORB=1TO5:O=4.5+ 
B».38:X=A*8+C0S(D)*4-2:Y=A*8+ 
SIN(D)«12+6:PUTSPRITEC. (X.Y) . 
15.0:C=C+1 :C=-(C<7)*C:NEXT:PU 
TSPRITE9. ((A-F)*8+1 . (1+A-F)*8 
+4). 15.1 :F0RE=1TO8:PUTSPRITEC 
. (X+2-E/4.Y-4+E/3) . 15,0:C=C+1 
:C=-(C<7)«C:NEXTE.A:G0T02 



&i:3A(D^-3Xmti^t:imitzMZm®o 

7,^-x^-^.ntii,xu^.m\-\z T ^3. r D 
-ji»5s £n5t>*wrnfcfflo+t77 



r fi7-j *«*• 1*1 

1 C0L0R15.1 .1 :SCREEN2 

2 FORJ=1T03:CIRCLE(45+X,75) .3 
0.11:PAINT(45+X.75) .11 : LINE (2 
5+X.105)-(65+X.140) . .BF:X=X+7 
0:LINE(40 + A.50)-(40 + A.60) .1 :L 
INE(50+A.50)-(50+A.60) .1 :A=A+ 
70:NEXT 

3 IFSTRIG(0)THEN4ELSE3 

4 F0RJ=1T03:CIRCLE(45+B.85) .1 
0.1 : PAINT (45+B. 85) .1:B=B+70:N 
EXT: PLAY" V1 001 AAA. "."V10O5BBB 
B"."V1306CCCC." 

5 G0T05 



zniMzst^^zi^to B-m- mco3 

Effl?'\tf'*C c t5Cd:5i:±*bTlctto 
rLKo tSZ, ^5^A=GETUP> 7? 

7 + - = FUNKEY, T 7 Y # v ^ V = 
I GOT YOLk^d'^GOOD GOD. 

iv^ntnAv o)\y^com » ^ a vi-a 
7-757X V7JU- su-rx 7'j>x 
&^rL^5SlBl*5*u : *■ro ssis, x^ 
-rs^y-u-'^h— xDyyyz-to z 

\tmm z(Dft\*3<Dmmz<&®ttmz®z- 

Uct5* E»*CBV^Jb7JU^7btz> 
h^Ud;5o 



#i)l|f-'y77'<77>*-7-f^ft^D'7FL0WER 

1 SCREEN5:C0L0R15.1 .1 :CLS:SET 
PAGE0.1 :CLS:DEFINTA-Z 

2 FORI=0TO2:X=I«70+53:Y=0:D=1 
+(RND(-TIME)>.5)*2:V=D:G0SUB9 
:C0L0RI»3+2:PSET(X.Y) 

3 Y=Y+RND(1)*2+1 :X=X+V: LINE- ( 
X.Y) :V=V+D:IFV=GTHENG0SUB9 

4 IFY<211THEN3ELSENEXT 

5 SETPAGE0.0:COLOR15 

6 FORI = 0TO243:IFK212THENCOPY 
(0.I)-(255.I) .1TO(0.I) .0 

7 LINE(0.I-32)-(255.I-32).1 

8 FORT=0TO9:NEXTT.I:END 

9 D=-D:G=D«(RND(1)«2+4) :RETUR 
N 



2^^(Z)^S r MSX-FAN. 

OlHCturboRfctii5fcV.n-<7)1£fk PCM 
lt^-S4fc^re6C4-oT. f^4•5^-C-L 
J: fee 3U ^niiBIK*4-<, 2^^-(7)fc-ffiU; 

*SSF^(7>^ttJ:6L<o S^o 



m^^7x-r^ 



*ASTi-><+>ltfc'o ^LT, Ari r MSX2j(;ft£o^fcAQtfc4-U*<7)$3S-rU*$f/'>'— v 3 >, r MSX2+ jC'•J.•■^>iT•* : *^LfcAi;(J#l^ g7 



J H > 



■ZtD^-S/tt^ n jr f mszt/ 



ismommttittiyn^-G! 




4*ttfit5®Qizts.z$qq<pm m 



_ ■ 

KSttft^rtt, tfx* • CBlff^yif felt 



3t>'J0tf*2mi?3&£U&M 



4- v. >*< L T * S 'fit-l It fcfl"<=> - 

4- 'J J "To *tfWr;b'h ttW5 
tTltifo fc*>6A,x SICAo 



0>t\ rfr4 l )tea.5fcSU4^ 

El(i r .Mi&lt4 IN THE 
MOODj, r ^* J 7T-f 1 >^2> 
r T-f • 7-f — *■ 77-f >(£ 



tV??? 



lUSijB . XRATED©^ 



^H-y-x^vx* 



Iff^^- JXG©ffS 






£-Cm'PhjVfoZt>t£/vCtJi& 






otfOturboRISIibU&So 
PCMIS^L/^cU o 



500 



10 CALLMUSIC( 0.0.1 .1.1.1.1.1.1.1.1) 

20 CALL VOICE (017.31 7. 317.36. 348. 31 4. 35. 3 

0.34) 

30 A$="L16F#F#F#F#R6F#F#F#R5Q8F#4G1" 

40 B$="L16AAAAR6AAAR5Q8A4B-1" 

50 C$="L16CCCCR6CCCR5Q8C4D-1" 

60 S$="T140V13Q6" 

70 PLAY#2."T140V15Q6".S$.S$.S$.S$.S$.S$+ 

"V15".S$.S$ 

80 PLAY#2 ,»>>" t ">>"."»" t •>"••>"•"".">" • 

h / tr ft \ » 

90 PLAY#2 , A$ . B$ . C$ . A$ . B$ . C$ . A$ . B$ . C$ 

C B*tI- t'va >C R P 



10 CALLMUSICd.0.1 .1 .1) :CLEAR 

20 CALLV0ICEC332.36.312) 

30 PLAY #2."T120"."T120"."T120"."T120V73 

A13 Y22.0" 

40 DEFSTR A-D 

50 A1="05Q5V13L16F+GGGR16GGGGGGGR16GGGER 

16DER16DEDER16R8D" 

60 B="L16V12CGCG<B>G<B>G<B->G<B->G<A>G<A 

>G<A->F<A->F<A->F<A->F<G>F<G>F<A>F<A>F" 

70 A2="D+EEER16EEEEEEER16EEEER16DER16DED 

G" 

80 C="V706L16a3CEQC" : C=C+C+C+C+C+C+C+C+C 

+ C+"Q3CC 

90 ' 

100 D="H8BMH24H24H24B!M!12H24H16H16":D=D 

+D+D+D 
110 ' 

IF STRIG(0)=-1 THEN 150 

PLAY #2.A1.B 

PLAY #2-A2.B 

PLAY #2>A1 .B.C.D 

PLAY #2. A2. B.C.D 

GOTO 150 

C NAMCO ALL RIGHTS RESERVED 



120 
130 

140 
150 
160 
170 



?fi?rav\fi: 



W*l*<M. *T*1J, TI05 3IOWKS2BM4-I0-7 T I M M S X • F A HWNV F M«*«J«Tt. «* -- WIW 



a*!** IN THE MOOD 



m&M • RRStiaoftss 



£-T KJbfflH N THE 



SLfc7 7 X l J*©v>X- Si 
IS j £ U 5 ffiffleiBKB fe 35 



^-To 



£U 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 



.0.2.2.1 .1) 



32) 



MUSICM 

BGMd ) 

TRANSPOSE ( 

TEMPER(U) 

PITCHC440) 

V0ICEO48.351 .31 4 , 324 . 333 . 3 



6) 



10 

20 

30 

40 

50 

60 

70 ' 

80 DEFSTR A-Z 

90 ' 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

<" 

200 

210 

220 ' 

230 B1="R1R2R6FA6F" 

240 B2=">C6<BA+6AG+6G6.F&F2-CF + FF 

F+FF-FF+FF-F>2" 

250 B3 = "G6G + A6A+B6>CR6GR2<-CC + CC-CC+CC-CC 

+ CC-CC+CC-02" 

260 ' 

C1="L4 FA>CFAFC<A" 

C2="G8->DG8-GD<B-" 

C3=">CEG>CEC<GE< L12" 



A0="T108O5L12V12Q8" 
B0="T108O6L12V10Q7" 
C0="T108O2L12V13Q5" 
D0="T108O4L12V14Q8" 
N0="T108V63A11" 

» 

A1="F6A>C6F6.F6.F6.F6.FE6FC6<A" 
A2=" >C6< BA+6AG+6G6 . F&F1 " 
A3="A6>CF6<A>C6F<A6>CF6<A>C6F&F2<" 
A4="8-6>DF6<B->D6F<B-6>DF6<B->D6F&F2 



A5 = ' 
A6 = ' 



>C6EG6CE6GC6EG6CE6G&G2<" 
G6FE6DE6FR6GR2C2" 



•FF+FF-F 



270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



D1="R1R6A>C6F6.C<A6F" 

D2="R1R2R6F&F6F&" 

D3="F2R2R2R6F&F6F+&" 

D4="F+2R2R2R6F+&F+6F&' 

D5="F2R2R2R6F&F6A&" 

D6="A2R2R1" 



N1="C2C2C2C2" 

N2="C6H12C6H12C6H12C6H12C6H12C6H12C6 
H 1 2S ! 24M ! 24S ! 24M ! 24S ! 24M ! 24" 
400 N3="CB6H12H1S!B6H12" : N3=N3+N3+N3+N3" 
410 N4="M!6M! 1 2M 1 6M ! 1 2M ! 12M ! 6M 14R16 V 1 
H32H32 V 4 H32H32 V 6 H32H32H12" 

#2.A0.B0.C0.D0.N0 
#2.A1.B1.C .D .N1 
#2.A2.B2.A2.D1 .N2 
#2.A3,B .C1.D2.N3 
#2,A3.A3.C1 .D3.N3 
#2. A .A4.C2.D4.N3 
#2. A3. A .C1.D5.N3 
#2.A5.A5.C3.D6,N3 

IN THE MOOD K> -V -i 
Words&Musio by G 

■ Ight 1939 8.1 960 by SHAPIRO. BERNSTEIN 8. CO., New York. N.Y. U-S.A. 
Rights for Japan controlled by Shiiiko Music Publishing Ca.Ltd.Tbkya 
Authorized tot sale in Japan only 
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PLAY 


440 


PLAY 


450 


PLAY 


460 


PLAY 


470 


PLAY 


480 


PLAY 


490 


PLAY 


500 


PLAY 



in 



510 PLAY #2,A6.B3.A6.A6,N4 

520 GOTO 440 

530 ' " *»{fa IN THE MOOD 
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10>mB20 


20>RU00 


30>Ig20 


40>s510 


50>xN10 


60>Nv50 


70>EH00 


80>mU00 


90>EH00 


100>HD30 


110>cC30 


120>BC30 


130>gD30 


140>Gx10 


150>EH00 


160>9A80 


170>th40 


180>2s90 


190>44C0 


200>Lo60 


210>P340 


220>EH00 


230>Z820 


240>E8N0 


250>f9M0 


260>EH00 


270>hx20 


280>wq20 


290>gp30 


300>EH00 


310>bs30 


320>jV20 


330>bM30 


340>Yw30 


350>A730 


360>UA10 


370>EH00 


380>FU10 


390>efV0 


400>fgG0 


410>YNY0 


420>EH00 


430>on20 


440>gg20 


450>Kp20 


460>Dn20 


470>Uq20 


480>uo20 


490>qn20 


500>Is20 


510>3s20 


520>OG00 


530>pc80 
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10 ' 

20 ' 

30 CALLMUSIC(0. 0.2.1 .1 . 1 ,2) 

40 CALLV0ICEO24, 316.3 4.324.333,333.333 

) 

50 CALLTRANSPOSEU000) 

60 , _TEMPER( 9) 

70 PLAY#2."V15T150"."V 8T150"."V 8T150". 

"V 8T150","V 8T150","V15T150" 

80 A1$="L1A" 

90 A2$="L1F" 

100 A3$="L1D" 

110 A4$="L403BBBB" 

120 PLAY#2,"L803G>CCCCCCD",A1$.A2$.A3$,A 

4$ 

1 30 PL AY#2 . " EDCCC2" . A 1 $ . A2$ . A3$ . A4$ 

140 PLAY#2."L403A>0DE",A1$.A2$.A3$.A4$ 

150 PLAY#2."D2.".A1$.A2$.A3$.A4$ 

160 PLAY#2."EL8EG".A1$.A2$.A3$.A4$ 

170 B1$="L1A" 

180 B2$="L1F" 

190 B3$="L1D" 

200 A4$="L403BRBR" 

210 PLAY#2."FFED".B1$,B2$.B3$.B4$ 

220 PLAY#2 > "REDC4< AG" . B1 $ . 82$ . B3$ , B4$ 

230 PLAY#2 . " >C4CC&C2" , B1 $ . B2$ . B3$ , B4$ 

240 PLAY#2 . "A4AG + AA4A" . B1 $ , B2$ , B3$ . B4$ 

250 PLAY#2 . "05C1 " , B1 $ . B2$ . B3$ . B4$ 

260 C1$="L1A" 

270 C2$="L1F" 

280 C3$="L1D" 

290 C4$="L403BR8B8BR8B8" 
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300 PLAY#2."0G4GF+GG4G" »C1 $ > C2$ . C3$ .C4$ 

310 PLAY#2."E1".C1$.C2$.C3$.C4$ 

320 PLAY#2."0G4GF+GG4G" . C1 $ > C2$ > C3$ . C4-S 

330 PLAY#2,"05C1".C1$»C2$.C3$.C4$ 

340 PLAY#2."08B4BA4G4" >C1$.C2$.C3$.C4$ 

350 PL AY#2 . " L205C2 . " . C1 $ . C2$ . C3$ . C4$ 
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10>EH00 
50>MR20 
90>4p00 
130>Hc50 
170>No00 
210>gq40 
250>Um40 
290>vg30 
330>gn40 



20>EH00 
60>Lu10 
100>oo00 
140>P370 
180>5p00 
220>Da60 
260>Oo00 
300>VY70 
340>2170 



30>3I20 
70>GIT0 
110>kr10 
150>6M40 
190>po00 
230>AQ60 
270>6p00 
310>T440 
350>x160 



40>jp60 
80>Mo00 
120>OC90 
160>vF50 
200>A020 
240>qu60 
280>qo00 
320>VY70 
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10 CALL MUSIC(0.0.2.2.2.2>1 ) 

20 P0KE&HFA3C.24:P0KE&HFA4C.24:P0KE&HFA5 

C.24:P0KE&HFA6C24 

30 ON STRIG GOSUB 190 

40 STRIGC0) ON 

50 PLAY #2."T96V15a305A8>C8"."T96Va305R1 

6.A8>C32"."T96L8316V13R405"."T9605L8Vai6 

R4"."T96V15R402332" 

60 PLAY #2. "D2.F"."R8.D2.F16" ."AFDFAFDF" 

,"R16.AFDFAFDF32"."B-.B-8B-.B-8" 

70 PLAY #2>"E2.C8<G8"."R16.E2.C8<G32"."> 

C<GEG>C<GEC"."R16. >C<GEG >C<GEC32" > "B- . 8- 

8B-.B-8" 

80 PLAY #2."G.A8&A2"."R8.G.A8&A16&A"."EC 

<A>FD<AFA"."R16.EC<A>FD<AFA32"."D.D8D.D8 

90 PLAY #2."R2R4A8>C8"."R16.R2R4A8>C32"> 
"DA>EDD<A>FD"."R16.DA>EDD<A>FD32"."D.D8D 

.D8" 

100 PLAY #2>"D2.F"."R8.D2.F16". "AFDFAFDF 

" . "R1 6 . AFDFAFDF32" . " 8- . B-8B- . B-8" 

110 PLAY #2."E2.C8D8"."R16.E2.C8D32".">C 

<GEG>C<GEC"."R16. >C< GEG >C<GEC32" . "B- . 8-8 

R-* R-S" 

120 PLAY #2."E2.G" . "R8 . E2 . G16" > " >C<GEG >C 

<GEC"."R16.>C<GEG>C<GEC32">"A.A8A.A8" 

130 PLAY #2."G.F8&F<A8>C8"."R16.G.F8&F<A 

8>C32" . "EC<A>D&D<A>FD"."R16.EC<A>D&D<A>F 

D32"."D.D8D>D8C8" 

140 PLAY #2>"D2. A". "R8.D2.A16". "AFDFAFDF 

"."R16.AFDFAFDF32" . "< B- . B-8B- . B-8" 

150 PLAY #2."G8R8E8R8R4C8R8"."R16.G8R8E8 

R8R4C8R32"»"ER8CR8R4<AR8"."R16.ER8CR8R4< 

AR32" ."A8R8A8R8R4A8R8" 



160 PLAY #2."C.D8&D2"."R8.C.D8&D&D16"."> 
GECFD<AFA"."R16.>GECFD<AFA32"."D.D8D.D8" 
170 PLAY #2."R4R2<A8>C8" . "R16 . R4R2< A8>C3 
2"."DEFA>DEFA"."R16.DEFA>DEFA32"."D.D8D. 

D8" 

180 GOTO 60 

190 CALL STOPM 
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10>ZY20 

50>twA1 

90>jom0 

130>Hh41 

170>SHk0 



20>umA0 

60>eZX0 

100>eZX0 

140>WcY0 

180>3800 



30>2I10 

70>olq0 

110>UAo0 

150>dMG1 

190>jb00 



40>na00 

80>mSi0 

120>k9d0 

160>bE90 
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10 ' GRADIUS 2(MSX) 

20 CALLMUSICd .0.2.1 .1.1) 

30 POKE&HFA3C.15 

40 A0$="T200347V15":B0$="T200347V15":C0$ 

="T200347V13":D0$="T200a33V8":E0$="T200Y 

23.30Y24.250V153A10":F0$="T200S0M2000" 

50 ' A PART 

60 A1$="L807C+1C+C+C+C+R8C+4.D1DDR8DR8D4 

rr 

70 A2$ = "E<A>C<A>E<A>CE4<A>C<A>AEC<A>E<A> 

C<A>E<A>CE4<A>C<A>AEC<A>" 

80 A3$="E<A>C<A>E<A>CE4<A>C<A>AEC<A>EC+< 

A>AEC+<A>C+E4.D+&D+2" 

90 A4$="R2<A4.B&B1AR8AR8A4.B&B1" 

100 A5$="R2>D4.E&E2<L32EFG-GA-AB-B>CD-DE 

-EFG-GL8DR8DR8D4.E&E1" 

110 A6$="R2>D4.ESE1AEC+<AEA>C+E4C+4<AE4C 

+ 4" 

120 

130 

4." 

140 B2$=">R16E<A>C<A>E<A>CE4<A>C<A>AEC<A 

>E<A>C<A>E<A>CE4<A>C<A>AEC<A16>" 

150 B3$="R16E<A>C<A>E<A>CE4<A>C<A>AEC<A> 

EC+<A>AEC+<A>C+16C+4.C+&C+2<" 

160 B4$="R2A4.B&B1AR8AR8A4.B&B1" 

170 B5$="R2A4.B&B1 >EC+< AEC+EA >C+4< A4EC+4 

<A4" 

180 '-- C PART 

190 C1$="L806F+1F+F+F+F+R8F+4.G1GGR8GR8G 

4." 

200 C2$=">R8E<A>C<A>E<A>CE4<A>C<A>AEC<A> 

E<A>C<A>E<A>CE4<A>C<A>AEC" 

210 C3$="<A>E<A>C<A>E<A>CE4<A>C<A>AEC<A> 

EC+<A>AEC+<AA4.A8&A2" 

220 C4$="R2F+4.G&G1F+R8F+R8F+4.G&G1" 

230 C5$="R2F+4.G&G1 >C+C+C+C+C+C+R8C+4C+4 

C+4C+C+C+" 



'-- B PART 
B1$="L806A+1A+A+A+A+R8A+4.B1BBR8BR8B 
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240 '-- BASE 

250 D1$="02L8E4>E4<EE>E<E4E>E<EEE>E<EE4> 

E4<EE>E<E4E>E<EEE>E<E" 

260 D2$="F4>F4<FF>F<F4F>F<FFF>F<FF+4>F+4 

<F+F+>F+<F+4F+>F+<F+F+F+>F+<F+" 

270 D3$="F4>F4<FF>F<F4F>F<FFF>F<FF+4>F+4 

<F+F+>F+<F+F+BB16B16BF+<BBB>" 

280 D4$="EB>E<EDEEEDEEEDEEEEB>E<EDEEEDEE 

EDEGB" 

290 D5$=" >C< GE >C< B >CCC< B >CCC< B >CCC< 8>CCC 

<B>CCC<B>CCC<B>C<GE" 

300 D6$=">C<GE>C<B>CCC<B>CCC<B>CC<GV11F+ 

1B2S0ABBB" 

310 '-- DRUM 

320 E1$="B8H!16H!16S8H!8B8B8S8H!8B8H!8S8 

H!8B8B8S8H!8B8H!16H! 1 6S8H ! 8B888S8H ! 8B8H ' 

8S8H!8B8B8S8H!8" 

330 E2$="S8B8H ! 8B8S8B8H ! 8B8S8B8H ! 8B8S8S8 

H ! 8B8S8B8H ! 8B8S8B8H ! 8B8S8B8H ! 8B8S8S8H ! 8B 

8" 

340 E3$="S8B8H!8B8S8B8H!8B8S8B8H!8B8S8S8 

H!8B8S8B8H!8B8S888H!8B8S8B8H!8B8V12S8V15 
S8S8S8" 

350 E4$="S8B8H ! 8B8S8B8H ! 8B8S8B8H ! 8B8S8S8 

H!8B8C2H!8H!16H!16H!8H!8C2S8S8S8S8" 

360 PLAY#2.A0$.B0$.C0$.D0$iE0$.F0$ 

370 PLAY#2.A1$.B1$.C1$,D1$,E1$.D1$ 

380 PLAY#2.A1$.B1$.C1$.D1$.E1$.D1$ 

390 PLAY#2»A2$.B2$.C2$,D2$.E1$,D2$ 

400 PLAY#2 . A3$ . B3$ . C3$ » D3$ . E 1 $ . D3$ 

41 PLAY#2 . A4$ . B4$ > C4$ . D4$ . E2$ > D4$ 

420 PLAY#2.A5$,B4$,C4$,D5$.E3$,D5$ 

430 PLA Y#2 . A4$ . B4$ . C4$ , D4$ , E2$ . D4$ 

440 PLAY#2 . A6$ . B5$ > C5$ . D6$ » E4$ . D6$ 

450 GOTO 370 
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10>OF40 


20>Fv10 


30>VT00 


40>UJt1 


50>Wj10 


60>AqC0 


70>p8Y0 


80>4rR0 


90>M170 


100>ssS0 


110>LXC0 


120>nX10 


130>chC0 


140>vYe0 


150>1TY0 


160>JX60 


170>iDD0 


180>uX10 


190>d4D0 


200>2EY0 


210>kRR0 


220>HO80 


230>3YG0 


240>U710 


250>WHU0 


260>Vma0 


270>6QZ0 


280>djG0 


290>dRS0 


300>Uf 10 


310>cB10 


320>6891 


330>bVp0 


340>Lhx0 


350>frf0 


360>L750 


370>7850 


380>7850 


390>L950 


400>ZA50 


410>BC50 


420>ND50 


430>BC50 


440>xE50 


450>iB00 









tr-Mora-*- 



FINE 



imm • mtp-®&m±m\\(Dtts, 



zzstimmEAmo tf- 

KJUX- V-7'^<-r<"53CD 
7-<-K -JKyfpyx—H ■ 






10 '••••• I FEEL FINE 

20 CALLMUSICd .0.1 ,1 ,1 ,1 ,1 ,1 ) 
30 CLEAR 2000:DIM AX(15):F0R 1=4 T015 
40 READ A$:AX(I)=VAL("&H"+A$) :NEXT I 
50 CALLVOICECOPY ( AX , 363) : DEFSTR A-H 
60 DATA 0000.0118.0000.0000.4001 .FFC2 
70 DATA 0000.0000,0011 ,FFD1 .0000.0000 
80 '•••••••••••«•••*•**»«•••»••••• 

90 A0="R1 .R1R1R1R1R1R1R1R1R1" 

100 A1="DFC<B8>C.<B8>CCDFC<B>C.<B8>CCD.D 

R1 . DDDD8C.C8<B->C8<CG1R1" 

1 1 A2 = " >D2D2D2 . DCCD8ED8E8D8&D2 . D2D2D2 . D 

E8C< A . G8F + 8&F + 2B8 >CD . FC< B8 >C . < B8 >C2< B8 >D 

FC<B8>C.<B8>C.C8D8" 

120 A3="DDR1 .DDDE8C.C8<B->C8<B-G2.R8>C8D 

2.R4R1R1R1R1R1R1" 

130 A4="R1R1R1R1R1R1R1R1" 

140 A5="DDR1 .DDDE8C.C8<B->C8<B-G1R1 >DDDD 

8C.C8<B->C8<B-G1R2. . >C8" 

150 A6="V=V;D2R2R13V=W;R1R2. .C8" 

160 ' •••••»••••••••*•••••»••••••••• 

170 B0="R1 .R1R1R1R1R1R1R1R1R1" 

180 B1="R1R1R1R1R1R1AAAA8G.G8FG8FD1R1" 

190 82="G2G2F+2.R4V12G1F+1V15G2G2F+2.R4V 

12G1F+2R4V15R1R1R1R1" 

200 B3="R1R1AAAA8G.G8FG8FD1R1R1R1R1R1R1R 

1" 

210 B4="R1R1R1R1R1R1R1R1" 

220 B5="R1R1AAAA8G.G8FG8FD1R1AAAA8G.G8FG 
8FD1R1" 

C0="R1.R1R1R1R1R1R1R1R1R1" 
C1="R1R1R1R1R1R1F+F+F+F+8E.E8DE8D<B1 



240 
250 
R1" 

260 C2 = "B2B2B2.R4V12>CKA1V15B2B2B2.R4V1 

2>CKA2.R4V15R1R1R1R1" 

270 C3="R1R1 >F+F+F+F+8E.E8DE8D<B1R1R1R1R 

1R1R1R1" 

280 C4="R1R1R1R1R1R1R1R1 >" 

290 C5="R1R1>F+F+F+F+8E.E8DE8D<B1R1 >F+F+ 

F+F+8E.E8DE8D<G1R1" 

300 ' •••••••••••»•••••••••••••••••• 

310 D0="A1 .363A105D>DD8C8<A8>GF+EF+8E8.Y 
35 , 24Y1 9 , 21 73W64Y 19,1 943W64Y1 9 . 1 723W64Y3 
5.25Y19.513W64Y19.173W64Y35.24Y19.2443W6 
4Y 19,21 73W64Y 19,1 943W64Y 19.1 723W8.CC8< B- 
8G8>FEDE8D<<G>GG8F8D8>C<-BAB8A<G>GG8F8D8> 
CXBAB8A" 

320 D1="V10<G>GG8B>C<BAB8A<G>GG8F8D8>C<B 

AB8AV15D>DD8C8<A8>GF+EF+8EV10<D>D<A.C.CC 

8F<V15G. >GG8F8D8>C<BAB8AV10" 

330 D2="L8<G4>GD<G>BR4<B4>BF+<8>BR4C4GEB 

BR4D4AF+DAR4<G4>GD<G>BR4<B4>BF+<B>BR4R4A 

4AA4AD4DDDDR4L4<G>GG8F8D8>C<BAB8A<G>GG8F 

8D8>C<BAB8AV15" 

340 D3="D>DD8C8<A8>GF+EF+8E8F+8V10<D>D<A 

•C.CC8F<G. >GG8F8D8>C<BAB8A<G>GG8F8D8>C<B 

AB8A8B8<G>GG8F8D8>C<BAB8A8B8D>DD8F+GF+<A 

A8A8A8V15" 

350 D4="D>DD8C8<A8>GF+EF+8E8. Y35.24Y19.2 

173W64Y24. 1943W64Y19, 1 723W64Y35 , 25Y1 9 . 51 

3W64Y 1 9 . 1 73W64Y35 . 24Y1 9 . 2443W64Y 1 9 . 21 73W 

64Y1 9 , 1 943W64Y1 9 . 1 723W8 . CC8< B-8G8 >FEDE8D 

<<G>GG8F8D8>C<BAB8A<G>GG8F8D8>C<BAB8A8B8 
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Words & Music by John Lennon and Paul McCartney it 
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rized for sale in JaDan only 



m§m 



360 D5="D>DD8C8<A8>GF+EF+8E8F+8V10<D>D<A 

.C.CC8FV15<G. >GG8F8D8>C<BAB8AV10DAA8A8R8 

G.G>E8C<D8V15<G>GG8F8D8>C<BAB8A" 

370 D6="V=V ; < G >GG8F8D8 >C< BAB8AaV=W ; < G >GG 

8F8D8>C<BAB8A" 

380 ' ••••••♦••••••••••••••••••••••• 

390 E0="R1R1 . D2.D4R4.A4>D4.<C4C4.CCG4G4. 

R4G1 6 . Y36 > 24Y20 . 2443W32Y20 . 21 73W32Y20 . 1 9 

43W32Y20 . 1 72SW32Y36 . 23Y20 . 5 1 3W32Y20 . 23W4 

D4.D<G>F4F4D4FD4<G4>D4.D<G>F4F4D4FD4" 

400 E1="V7G4G4GG4GG4G4GGGGG4G4GG4GG4G4GG 

GGD4D4DD4DD4D4DDDDO4D4DD4DC4C4CCCC<V10G4 

>04. D<G>F4F4D4FD4V7" 

410 E2="G4GG4GGGB4BB4BB8C4CC4CCCD4DD4DDD 

G4GG4GGGB4BB4BBBA4AA4AAAD4DD4DDDG4G4GG4G 

G4G4GGGGG4G4GG4GG4G4GGGG" 

420 E3="D4D4DD4DD4D4DDDDV10D4D4DD4DC4C4C 

CCC<G4>D4.D<G>F4F4D4FR8V15>C16C+16D4F4D+ 

32E. .G4C+32D. . FD1 6C+1 6C< B-G4 >D4F4D+32E . . 

G4C+32D. . FD16C+16C<8-G4D4>D4DC<A>G4F+4E4 

F+EF+" 

430 E4="V12L4<DAAD8>CC<AA8AC>C..C8<C8B-B- 

GG8G16.Y36>24Y20.244aW32Y20.217aW32Y20.1 

943W32Y20 . 1723W32Y36 . 23Y20 . 5 1 OW32Y20 . 23W 

4D.D8<G8>FFDF8D<G>D.D8<G8>FFDF8DI_8" 

440 E5="D4D4DD4DD4D4DDDDV10D4D4DD4DC4C4C 
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